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IDENTIFICATION 


PRODUCT CODE: AC-F972A-MC 

PRODUCT NAME: CJKDGAO KEF11-8 CIS DIAG. 

PRODUCT DATE: FEBRUARY 1980 
MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF SOFTWARE ON 
EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED COMPANIES. 


COPYRIGHT (C): 1980 BY DIGITAL FQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DEC TAPE DECX/71 
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1.0 GENERAL PROGRAM INFORMATION 
1.17 ABSTRACT 


THIS Sik tie VERIFIES THE Ry Ee OF THE KEFII-BA (CIS = 
COMMERCIAL INSTRUCTION SET) OPTION. IT ALLOWS THE USER TO CHECK OUT 
ANY COMBINATION OF CIS CHIPS. _IN VIRTUALLY oy CASES, FAULT ares 
1S TO THE CIS CHIP LEVEL. THE DIAGNOSTIC CAN BE RUN UNDER XXDP, ACT, 
+ Anat MONITORS. THE SOFTWARE SWITCH REGISTER (LOCATION. 7) 1S 


3 CIS OPTION CONSISTS OF SIX MOS/LSI CONTROL CHIPS CONTAINED IN 

HREE 40-PIN HYBRID CARRIERS. ALL CIS INSTRUCTIONS ARE CHIP 
PARTITIONED. I.E. ALL THE CODE FOR A_ PARTICULAR INSTRUCTION IS 
CONTAINED ON A PARTICULAR CONTROL CHIP. THE EXCEPTION IS THAT ALL CIS 
INSTRUCTIONS MUST PASS THROUGH THE FIRST CIS_ CHIP (CONTROL CHIP 
DC 303-004) BEFORE REACHING THEIR DESTINATION CHIP. 


1.2 SYSTEM REQUIREMENTS 
A. HARDWARE REQUIREMENTS 


THIS DIAGNOSTIC IS DESIGNED TO RUN ON A SYSTEM IMPLEMENTING A 
DCF11-AA CHIP ib a REQUIRED ARE A SERIAL LINE INTERFACE, A 
CONSOLE _TERMINA\ 16K OF MEMORY. THE FIRST CIS CHIP 
(DC 303-004 > MUST” BET INSTALLED. ANY (OR NONE) OF THE OTHER CIS 
CHIPS MAY BE PRESENT. 


B. SOFTWARE REQUIREMENTS 


THE SOF TWARE ot et UNDER WHICH THIS DIAGNOSTIC WILL 
OPERATE ARE SCRIPT, APT STAND-ALONE, ACT Q.V., ACT 
AUTO-ACCEPT, ACT NS TANDSAL ONE, XXDP CHAIN, XXDP STAND-ALONE. AND 
ABSOLUTE BINARY PAPER TAPE. 


1.3 RELATED DOCUMENTS AND STANDARDS 


THE FOLLOWING DOCUMENTS WERE USED OR REFERENCED DURING THE CREATION OF 
THIS DIAGNOSTIC: 


DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS PROGRAMMING 
PRACTICES (DOC. NO. 175-003-009- 

ACT11/XXDP_ PROGRAMMING SPECIFICATION (AUTOCAT-11-QZAUB-B-D) 

ted yo es LIST 

STANDAR SYSTEM TO PDP=11 DIAGNOSTIC INTERFACE 
(HAPT/11~ 317-07 -09) 

DEC STD 168: PDP11 EXTENDED INSTRUCTIONS 

ath 
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DIAGNOSTIC HIERARCHY PREREQUISITES 


IT IS ASSUMED THAT THE CPU, MEMORY, SERIAL LINE INTERFACE, AND 
CONSOLE TERMINAL HAVE ALL PASSED THE PROPER DIAGNOSTICS. 


ASSUMPTIONS 


THE DIAGNOSTIC WILL ATTEMPT TO TEST ALL SIX CJS CHIPS UNLESS _ THE 
SOFTWARE SWR IS ALTERED TO INDICATE A SUBSET OF CIS CHIPS TO BE 
TESTED. SEE SECTION 2.2. 


SEQ 0005 
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2.0 OPERATING INSTRUCTIONS 


2.1 


2.2 


LOADING AND STARTING PROCEDURE 

A. LOADING 

YAPES: OR XXDP MEDIA (FILES WITH .BIC OR -BIN EXTENSIONS ONLY). 
B. STARTING 

THE PROGRAM SHOULD ALWAYS BE STARTED AT 200. UPON START 


(RUNNING _IN NON-AUTOMATIC MODE) THE DIAGNOSTIC INITIALIZES, 
PRINTS OUT ITS IDENTIFICATION (FIRST TIME ONLY), AND THEN PRINTS: 


"SWR = 000000 NEW = °° 
THE NUMBER FOLLOWING ‘‘SWR'’ IS THE CURRENT VALUE OF THE SOFTWARE 
SWITCH REGISTER. IF NO CHANGES ARE DESIRED IN THE SWITCH 
REGISTER THEN A CARRIAGE RETURN MAY BE HIT; IF 


H CHANGES ARE 
DESIRED THEN A NEW VALUE MAY BE TYPED IN FOLLOWED BY A CARRIAGE 
RETURN. IF NOT ALL SIX CIS CHIPS ARE TO BE TESTED THEN THE SWR 
WILL_ HAVE TO BE CHANGED. SEE NEXT SECTION FOR SWR BIT 
ASSIGNMENTS. 


PROGRAM OPTIONS 


SWITCH REGISTER SETTINGS 


LOCATION 176 IS USED FOR THE SOFTWARE SWITCH REGISTER (UNLESS 
RUNNING UNDER APT SCRIPT MODE). THE FOLLOWING ARE THE RESULTS OF 
SETTING THE RESPECTIVE SWR BITS: 


BIT15 HALT ON ERROR 
BIT14 -SCOPE LOOP 
BIT13 ~INHIBIT ERROR TYPEOUT 
BIT12 -NOT USED 

IT11 INHIBIT SUBTEST ITERATIONS 
pi reste 6> -NOT USED 


-TEST CIS CONTROL CHIP 9 (DC303-009) 


BIT04 ~TEST CIS CONTROL CHIP 8 (DC303-008) 
B1T03 ~TEST CIS CONTROL CHIP 7 (DC303-007) 
BITO2 ~TEST CIS CONTROL CHIP 6 (DC303-006) 
BITO1 ~TEST CIS CONTROL CHIP 5 (DC303-005) 
BITOO TEST CIS CONTROL CHIP 4 (DC303-004) 


AS CAN BE SEEN ABOVE, SWR BITS<5:0> ALLOW THE USER TO SELECT ANY 
COMBINATION OF CIS CONTROL CHIP(S) TO BE TESTED. TO SELECT A CIS 
CONTROL CHIP FOR TESTING, ITS CORRESPONDING BIT IN THE SWITCH 
REGISTER MUST BE SET. NOTE, HOWEVER, THAT IF SWR BITS<5:0> ARE 
ALL ZERO (DEFAULT MODE) THEN THE DIAGNOSTIC WILL TEST ALL SIX CIS 


SEQ 0006 


2.3 
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CONTROL CHIPS. 
THE VALUE OF THE SOF TWARE we REGISTER MAY BE CHANGED DURING 
THE PROGRAM TO DO THIS CONTROL/G IS _TYPED (TYPE THE 


RUN. 
*CTPL’ AND ‘G" KEYS SIMULTANEOUSLY) : WITHIN A_ FEW SECONDS THE 
SS ae OF THE SWR IS TYPED OUT AND THE PROGRAM WAITS FOR 


NOTE: THE PROGRAM IS NOT RUNNING ANY TESTS WHILE WAITING FOR A 
NEW VALUE OF SWR TO BE INPUT. 


EXECUTION TIMES 


ALL TIMES WERE MEASURED ON A KDF11-A, RUNNING THE FULL COMPLEMENT 
OF CIS CONTROL CHIPS. 


A. FIRST PASS (QV) 
10 SECONDS 


B. LONGEST TEST 
13 SECONDS 


C. ADDITIONAL TIME FOR UNITS 
N/A 


- FULL PASS TIME (ITERATIONS) 
70 SECONDS 


i] 


1 


SEQ 0007 
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3.0 ERROR INFORMATION 


3.1 


3.2 


ERROR REPORTING PROCEDURES 


WHEN A CIS INSTRUCTION FAILS, o., TYPEOUT GIVES THE ERROR PC, THE 
CONTROL CHIP NUMBER, AND KIND OF FAILURE OCCURRED. TH 
ERROR PC IS THE ACTUAL LOCATION. OF THE ERROR CALL IN THE FAILING 


NUMBER WIL . . OR 
23-*09. THE * SIGNIFIES THE REVISION LEVEL OF THE CHIP AND’ SO 
MAY BE ANY DIGIT. THE LAST TWO DIGITS DISTINGUISHES ONE CIS CHIP 
FROM ANOTHER. CURRENTLY, THE SIX CIS CONTROL CHIPS ARE PACKAGED 
ON THREE HYBRID CARRIERS. THE PART NUMBERS FOR THE HYBRID 
ASSEMBLIES ARE: 5700002-00 (CIS CHIPS 23-*04 AND 23-*06), 
5700003-00 (CIS CHIPS 23-*05 AND 23-*07) AND 5700004-00 (CIS 
CHIPS 23-*08 AND 23-*09). THE KINDS OF FAILURES REPORTED ARE: 

"CIS INSTRUCTION FAILURE'' 

Aer eee ne FAILURE*’ 

RAP ON ILLEGAL CIS CLASS OPCODE"’ 

THE IS. INSTRUCTION FAILURE’' IS THE MOST FREQUENTLY CALLED 
ERROR. IT USUALLY REFERS TO A CIS INSTRUCTION THAT PRODUCES THE 
WRONG CONDITION CODES, THE WRONG DESTINATION OUTPUT, OR THE WRONG 
GENERAL PURPOSE REGISTER CONTENTS. TO DETERMINE WHAT THE 
SPECIFIC FAILING INSTRUCTION IS, AND THE SPECIFIC TYPE OF 
Aig Fi LOOK IN THE DIAGNOSTIC AT THE CODE IN THE AREA OF THE 


ERROR HALTS 


THREE UNEXPECTED FAULTS CAN +d OCCUR. THEY ARE: 
""AN UNEXPECTED TIME-OUT 
"AN rr eg ILLEGAL AND RESERVED INSTRUCTION TRAP** 


IN ALL_THREE CASES THE PROGRAM HALTS IMMEDIATELY AFTER TYPING OUT 
THE APPROPRIATE MESSAGE. HITTING ‘P'’ (PROCEED) WILL CAUSE THE 
DIAGNOSTIC TO START OVER IF THE FAULT WAS A POWER FAIL, D 10 
CONTINUE THE DIAGNOSTIC FROM + Pog ~ AT WHICH IT WAS 
INTERRUPTED FOR THE OTHER TWO FAULTS. ANY OTHER UNEXPECTED 
INTERRUPTS OR TRAPS WILL BE CAUGHT "By THE TRAP CATCHER, WHICH 
ALSO HALTS THE DIAGNOSTIC. 


SETTING SWR BIT15 WILL CAUSE THE THREE ERRORS LISTED IN SECTION 
3.1 TO HALT AFTER TYPING OUT THE ERROR MESSAGE. HITTING ‘P"’ 
(PROCEED) MUILL CONTINUE THE DIAGNOSTIC. 


SEQ 0008 


4.0 


4.) 


4.2 
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PERFORMANCE AND PROGRESS REPORTS 
PERFORMANCE REPORTS 
N/A 


PROGRESS REPORTS 


AT THE END OF EACH PASS THE DIAGNOSTIC PRINTS OUT ‘END PASS #"' 
FOLLOWED BY THE CURRENT PASS NUMBER. 


SEQ 0009 


5.0 
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DEVICE INFORMATION TABLES 


THE CIS INSTRUCTIONS ARE PARTITIONED SUCH THAT NEARLY ALL _ THE 
MICRO-CODE FOR AN_INSTRUCTION IS_ LOCATED. ON ONE CHIP. (THE 
INSTRUCTIONS THAT RESIDE ON CONTROL CHIP DC303-004 ARE CONTAINED 
Hg ON THAT CHIP; ALL THE OTHER ‘gee ne MUST FIRST 

ASS THROUGH CONTROL CHIP 4 SO THERE IS SMALL AMOUNT OF 
M1 CRO~CODE FOR THE OTHER INSTRUCTIONS ON THAT CHIP.) THE 
PARTITIONING iS AS FOLLOWS: 


oe i CHIP DC303-004: 


07602! LOAD 2 DESCRIPTORS 
L3DR 07606R LOAD 3 DESCRIPTORS 
MOVC 076030 MOVE CHARACTER 
MOVCR 076031 MOVE REVERSE JUSTIFIED CHARACTER 
MOVTC 076032 MOVE TRANSLATED CHARACTER 
LOCC 076040 LOCATE CHARACTER 
SKPC 076041 SKIP 
SCANC 07604 SCAN CHARACTER 
SPANC 076043 SPAN CHARACTER 
CMPC 076044 COMPARE CHARACTER 
T 76045 MATCH CHARACTER 
CONTROL CHIP DC303-005 
CONVERT NUMERIC TO LONG 
CVTPN 076054 ay add PACKED TO NUMERIC 
CVTNP 076055 CONVERT NUMERIC TO PACKED 
CVTLN 076057 CONVERT LONG TO NUMERIC 
CVTPL 076073 CONVERT PACKED TO LONG 
CVTLP 076077 CONVERT LONG TO PACKED 
CONTROL CHIP DC303-006: 
ADDN 076050 ADD NUMERIC 
SUBN 076051 SUBTRACT NUMERIC 
CMPN 076052 COMPARE NUMERIC 
ASHN 076056 ARITHMETIC SHIFT NUMERIC 
CONTROL CHIP DC303-007: 
ADDP 076070 ADD PACKED 
SUBP 076071 SUBTRACT PACKED 
CMPP 076072 COMPARE PACKED 
ASHP 076076 ARITHMETIC SHIFT PACKED 


CONTROL CHIP DC303-008: 
MULP 76074 


MULTIPLY PACKED 
CONTROL CHIP DC303-009: 
DIVP 076075 DIVIDE PACKED 


ALL OF THE ABOVE INSTRUCTIONS EXCEPT FOR L2DR AND L3DR HAVE AN 
IN-LINE VERSION, TOO. THE MNEMONIC IS THE SAME EXCEPT ae 
eg TO IT AND THE OPCODE IS THE SAME EXCEPT BITO6 IS 
SET. EXAMPLE, THE IN-LINE VERSION OF CVTNP (076055) IS 
CvINPL. (676155), 


SEQ 0010 
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6.0 PROGRAM DESCRIPTION 


6.1 
6.2 


THIS PROGRAM WAS WRITTEN IN MODULES. THE FIRST MODULE INCLUDES 
START UP AND INITIALIZATION gag te BASIC DEFINITIONS, VARIABLE 
DEFINITIONS, THE TRAP CATCH AND A T E 
SECOND MODULE CONTAINS THE Riests F 

INSTRUCTIONS, THE TEST DATA FOR THOSE INSTRUCTION 

OPCODE TEST, AND AN INTERRUPTABILITY TEST. 

art THE TESTS AND ie DATA FOR CONTROL 


AND 
-009. FINAL THE SEVENTH MODULE CONTAINS END OF PASS, 

SCOPE, — THE OTHER COMMON SUBROUTINES, ASCII MESSAGES, BUFFERS, 

TABLES, AND TEST DATA FOR CONTROL CHIPS DC303-006 AND DC303-007. 


PROGRAM EXECUTION CHARACTERISTICS 
SUBTEST SUMMARIES 


THERE IS ONE SUBTEST FOR EACH CIS__INSTRUCTION. FIRST, THE 

REGISTER FORM OF THE INSTRUCTION IS TESTED WITH SEVERAL SETS OF 

THEN ONE CASE OF THE IN-LINE VERSION IS TESTED. TEST 

THE FIRST WORD OF EACH 

R OF TEST C ONTAINED IN THE TABLE 

FORMAT OF THE TEST DATA IS DIFFERENT FOR DIFFERENT INSTRUCTIONS; 

THE FIRST TEST CASE IN EACH TABLE HAS COMMENTS IDENTIFYING EACH 
ELEMENT IN THE TEST CASE. 


THE FOLLOWING IS A SUMMARY OF EACH SUBTEST. 


MOVC - THE TABLE OF TEST CASES CONTAINS: 
<SOURCE LENGTH> 


<SOURCE ADDRESS> 

<DESTINATION LENGTH> 

<DESTINATION GOORESS> 
HARACTER> 


ESTINA R STATE 
THE SOUR DESTINATION BUFFER STATES DESIGNATE WHAT 
THOSE BUFFERS WILL BE FILLED WITH BEFORE EXECUTION OF THE 
MOVC INSTRUCTION. P. apart’ ean TE et ores 


000, A 

(AL TERNATING 

DESTINATION RESULT 

CONDITION CODES AND 

INSTRUCTION EXECUTED TH 

COMPARED WITH THE EXPECTED RESULTS. DISAGREEMENTS ARE 
FLAGGED WITH AN ERROR CALL, WHICH PRINTS OUT ‘CIS 


SEQ 0011 
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INSTRUCTION FAILURE’, THE PC OF THE ERROR -* AND _THE 
CONTROL CHIP_ NUMBER (IN 


F MOVC, AND | 
CONTAINS ONLY: SOURCE LENGTH SOURCE ADDRESS, 
DESTINATION LENGTH, AND DESTINATION ADDRESS. 


MOVRC = SAME AS MOVC 


MOVTC = SAME A 


LOCC 


SKPC 


S_MOVC, 
EXCEPT THAT A TRANSLATION TABLE, LOCATED AT ‘TRANS’, IS 
USED. PRIOR TO THE EXECUTION OF THE MOVTC INSTRUCTION, 
THE TRANSLATION TABLE IS CLEARED. THEN BYTE LOCATION 
TRANS+O GETS A_ 63, TRANS+252 GETS A 314, AND TRANS+377 
GETS A 125 (ALL NUMBERS OCTAL). 


~- THE TABLE OF TEST — CONTAINS: 
<SOURCE LENGTH 
ae gat SEARCHED FOR> 


<OF F SET> 
THE SEARCH BUFFER (BUFF1) IS FILLED WITH ZEROES, THEN AT 
BYTE LOCATION "BUFF1+OFFSET' THE ‘CHARACTER SEARCHED FOR’ 
IS INSERTED. acute RESULTS FOR THE CONDITION CODES 
AND RO-R5 ARE COMPUTED. [THE LOCC INSTRUCTION IS EXECUTED 
AND EXPECTED RESULTS ARE COMPARED WITH ACTUAL RESULTS. 
DISAGREEMENTS ARE FLAGGED WITH ERROR CALLS. 


- SIMILAR TO LOCC, 

EXCEPT THAT THE TEST — HAVE A_ ‘NOT SEARCHED FOR 
CHARACTER’ IN PLACE OF A ‘CHARACTER SEARCHED FOR’. THE 
SEARCH BUFFER (BUFF1) IS FILLED WITH SEARC'.D-FOR 
CHARACTERS, THEN AT BYTE LOCATION "BUFF1+OFFSET* iHE ‘NOT 
SEARCHED FOR’ CHARACTER IS INSERTED. 


SCANC - THE TABLE OF TEST CASES CONTAINS: 
<SOURCE LENGTH> 


<OF F SET> 

BUFF1 IS FILLED WITH ZEROES. THAN AT BYTE LOCATION 
"BUFF1+OFFSET' A 125 IS er ciee” THE TABLE ‘CHRSET IS 
CLEARED, THEN A 1 IS INSERTED AT BYTE LOCATION 
*CHRSET+125", TO DENOTE oo :RSHIP IN THE CHARACTER SET. 
EXPECTED CONDITION CODES AND 20-R5 VALUES ARE COMPUTED, 
THE SCANC INSTRUCTION IS EXECUTED, AND DISAGREEMENTS 
BETWEEN ACTUAL AND EXPECTED R=SULTS CAUSE ERROR CALLS. 


SPANC = THE TABLE OF 3 CASES CONTAINS: 


<SOURCE LENGTH 


SEQ 0012 





MATC 


<OF F SET> 

BUFF1 IS FILLED WITH ZEROES, THEN A 252 IS INSERTED AT 
BYTE LOCATION '‘BUFFI+OFFSET'. CHRSET IS FILLED WITH 
ZEROES, THEN BYTE LOCATION ‘CHRSET+0" GETS A 40 SO THAT A 
0 IN THE SOURCE BUFFER WILL BE CONSIDERED A MEMBER OF THE 
CHARACTER SET AND A 252 WILL NOT. EXPECTED CONDITION 
CODES AND RO=R5 VALUES ARE COMPUTED, SCANC IS EXECUTED, 
EXPECTED RESULTS ARE COMPARED W!TH ACTUAL RESULTS, AND 
DISAGREEMENTS CAUSE ERROR CALLS. 


~ THE TABLE OF TEST = CONTAINS: 
<SOURCE1 LENGTH 
<SOURCE2 LENGTH 
BOTH SOURCE STRINGS ARE FILLED WITH 377'S AND THE FILL 
CHARACTER IS SET EQUAL TO 377. THEN IN_ THE LONGER 
STRING, AT "SRC.ADR+OFFSET', A BYTE IS CLEARED. THIS 
BYTE WILL BE THE INEQUALITY BETWEEN THE TWO STRINGS WHICH 
WILL TERMINATE THE CMPC COMPARISON. ACTUAL RESULTS WILL 
BE COMPARED WITH “REVIOUSLY COMPUTED EXPECTED RESULTS 
(CONDITION CODES AND RO=-R5 VALUES). 


~- THE TABLE OF TEST CASES CONTAINS: 
<OBJECT LENGTH> 


<OF F SET> 
THE SOURCE STRING IS THE FIRST 70 BYTES OF BUFF1. BUFF 
IS FIRST FILLED WITH 377'S AND THEN CLEARED FROM 
“BUFF 1+OFFSET* TO THE END OF BUFF1. THE OBJECT STRING 
STARTS AT BUFF2, IS OF LENGTH ‘OBJECT LENGTH’ FROM THE 
TABLE OF TEST CASES, AND IS ALL ZEROES. EXPECTED VALUES 
AND RO-R5 ARE COMPUT T I 


CODES 
EXECUTED, EXPECTED RESULTS AND ACTUAL RESULTS ARE 
COMPARED, AND ERROR CALLS ARE MADE FOR DISAGREEMENTS. 


CVTLP = THE TABLE OF TEST CASES CONTAINS: 


eee merken DATA TYPE AND LENGTH> 

<LONG INTEGER HIGH, AND SIGN> 

<LONG INTEGER LOW> 
THE LONG INTEGER IN THE TEST CASE IS CONVERTED TO PACKED 
AND PLACED INTO BUFFER *DS.EXP* (DECIMAL STRING EXPECTED) 


E 
AND RO-R5 ARE ALSO COMPUTED. THE CVTLP INSTRUCTION IS 
EXECUTED AND EXPECTED RESULTS ARE COMPARED WITH ACTUAL 
RESULTS. DISAGREEMENTS WILL CAUSE ERROR CALLS. 


CVTLN = SAME AS THE CVTLP TEST, 


EXCEPT THE LONG INTEGER IS CONVERTED TO A NUMERIC DECIMAL 
FORM, ACCORDING TO THE SPECIFICATION IN THE TEST CASE. 


CVTPL = THE TABLE OF TEST CASES CONTAINS: 
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SEQ 0013 


<SOURCE DATA TYPE AND LENGTH 

<POINTER TO PACKED = STRING> 

<A PACKED DECIMAL STRING> 
THE PACKED DECIMAL STRING IS CONVERTED TO A LONG INTEGER 
AND INTO ~~ XP* AND 'R3.EXP' 
AND R3). __THE EXPECTED RESULTS 
OR_ THE OTHER RAL PURPOSE REGISTER AND THE CONDITION 
CODES ARE ALSO COMPUTED. THE TPL__ INSTRUCTION IS 
anit.’ ACTUAL RESULTS ARE COMPARED WITH EXPECTED 
RESULTS, AND DISAGREEMENTS ARE FLAGGED BY ERROR CALLS. 


CVTNL = te AS_THE CVTNL TEST 
EXCEPT THAT NUMERIC DECIMAL STRINGS ARE —" INSTEAD 
OF PACKED DECIMAL STRINGS. ALSO, TABLE FOR 
INTERPRETING ACCEPTABLE SIGN/DIGIT COMBINATIONS FOR 
OVERPUNCH IS INCLUDED. 


CVTPN — THE pn ay 3 OF bg CASES ree 
<SOURCE DATA TY 


LENGTH 
<POINTER 10. A PACKED SOURCE STRING> 
<DESTINATION LENGTH> 

EACH PACKED DECIMAL ging IS CONVERTED INTO EACH OF THE 
SIX NUMERIC DECIMAL DATA TYPES. THUS, EACH TEST CASE IS 
USED SIX TIMES BEFORE GOING ON TO THE NEXT ONE. EACH 
TIME, THE EXPECTED CONDITION CODES AND RO-R5 VALUES ARE 
ALSO COMPUTED. THE CVTPN_ INSTRUCTION IS __ EXECUTED, 
EXPECTED RESULTS ARE COMPARED WITH ACTUAL RESULTS, AND 
DISAGREEMENTS ARE FLAGGED BY ERROR CALLS. 


CVTNP - THE TABLE OF TEST CASES CONTAINS: 


TER TO STRING> 

<DESTINATION DATA TYPE AND LENGTH> 

<A_SOURCE STRING> 
THE SOURCE STRING IS IN AN _INTERMEDIATE FORMAT. 
IRST I GN (0 FOR POSITIVE, 

THE MAGNITUD 

BINARY-CODED-DECIMAL DIGIT PER BYTE. 
CONVERTED TO A _ PACKED DECIMAL STRING 
"DS.EXP’, AND THE EXPECTED VALUES OF THE CONDITION CODES 
AND RO-RS ARE COMPUTED. THE CVTNP INSTRUCTION IS 
EXECUTED, ACTUAL RESULTS COMPARED ae. ranheiatiend RESULTS, 
AND DISAGREEMENTS FLAGGED BY ERROR CALLS 


ADDN - THE TABLE OF TEST CASES CONTAINS: 
<SOURCE1 LENGTH> 


LENGTH 
<DESTINATION POINTER (SUM) > 


SEQ 0014 





SUBN 


CMPN 


ASHN 
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<EXPECTED CONDITION CODES> 
THE SOURCE1, SOURCE2, AND DESTINATION STRINGS ARE_ IN AN 
INTERMEDIATE FORMAT. EACH ag ben tae teereh OF THE 


SIX DATA TYPE FORMATS (UNSIGNED Z IS TH 
C ONLY). THIS GIVES A TOTAL OF 125 TESTS 

FORMED ON EACH TEST CASE, IN ORDER TO TEST AL 
COMBINATIONS OF THE FIVE DATA TYPES. SOURCE] AND SOURCE? 
ARE ADDED TOGETHER BY THE ADDN INSTRUCTION AND THE R 
IS_ C ED TO THE EXPECTED ANSWER WHICH IS SUPPLIED | 
THE TEST TABLE (POINTED 0 OY fF ESTINATION 


E  DESTI 
POINTER). EXPECTED CONDITION CODES ARE ALSO °°" IED IN 
THE TEST CASE TABLE AND IS _ COMPARED WITH ACTUAL 
CONDITION CODES. THE EXPECTED GENERAL PURPOSE REGISTER 
VALUES (RO=R5) ARE THE ONLY EXPECTED RESULTS THAT ARE 
ACTUALLY CALCULATED BY THE DIAGNOSTIC, AND THESE TOO ARE 
COMPARED WITH THE ACTUAL RESULTS. ANY  DISAGREEMENTS 
tok tel AND EXPECTED RESULTS ARE FLAGGED BY AN 


~ THE SAME AS ADDN, 

EXCEPT THAT THE TEST CASES HAVE THE EXPECTED DESTINATION 
STRING (IN AN INTERMEDIATE FORMAT) AND EXPECTED oe 
CODES FOR A SUBTRACT OPERATION INSTEAD OF 
OPERATION. THE SOURCE1 LENGTH AND POINTER, THE NSOURCE? 
LENGTH AND POINTER, AND THE DESTINATION LENGTH ARE 
IDENTICAL TO THOSE USED IN THE ADDN INSTRUCTION. THE 
seer OPERATES IN EXACTLY THE SAME MANNER AS THE ADDN 


- THE TABLE OF TEST — CONTAINS: 


THE TWO SOURCE STRINGS ARE IN AN __ INTERMEDIATE 
FORMAT. EACH ONE IS_ TESTED IN FIVE OF THE SIX NUMERIC 
DATA TYPE FORMATS (UNSIGNED ZONED IS TESTED IN THE INLINE 
CASE ONLY). THIS GIVES A TOTAL OF 25 TESTS PERFORMED ON 
EACH TEST ae IN EACH TEST, SOURCE] IS_ ARITHMETICALL’ 
COMPARED WITH SOURCE2 AND THE CONDITIONS ARE UPDATED TO 
REFLECT THE RESULTS. THE EXPECTED CONDITION CODES ARE 
COMPARED WITH THE ACTUAL CONDITION CODES, AND RO-R5 ARE 
TESTED TO SEE THAT ris ARE CLEAR. ANY DISCREPANCIES ARE 
FLAGGED BY ERROR CALLS 


~- THE TABLE OF 1 i cases CONTAINS: 

<SOURCE LENG 

<BESTINATION. LENGTH> 

<SHIFT COUNT> 

<ROUNDING DIGIT> 
THE SOURCE STRING IS ALWAYS A STRING OF ‘46'S STARTING AT 
DSBUF1 AND OF THE LENGTH SPECIFIEC ®6Y THE TEST 


SEQ 0015 


ADDP 


SUBP - 


CMPP 


ASHP 


DIvP 
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CASE. EACH TIME, THE EXPECTED RESULTS ARE CALCULATED AND 
PUT INTO DS.EXP AND CC.EXP. ACTUAL RESULTS ARE COMPARED 
eon CALS. RESULTS AND DISAGREEMENTS ARE FLAGGED BY 


- SAME AS THE ADDN TEST 

EXCEPT THAT EACH TEST CASE IS RUN ONCE, USING SIGNED 
PACKED FORMAT. UNSIGNED PACKED IS TESTED IN THE IN-LINE 
3 IDENTICAL TABLE OF TEST CASES USED FOR ADDN I5 
U . 


SAME AS THE SUBN TEST, 
EXCEPT THAT EACH TEST CASE IS RUN ONCE, USING SIGNED 
PACKED FORMAT. UNSIGNED PACKED IS TESTED IN THE IN-LINE 
y LL IDENTICAL TABLE OF TEST CASES USED FOR SUBN IS 
U . 


~- SAME AS THE CMPN TEST, 

EXCEPT THAT EACH TEST CASE IS RUN ONCE, USING SIGNED 
PACKED FORMAT. UNSIGNED PACKED IS TESTED IN THE IN-LINE 
V2 LE IDENTICAL TABLE OF TEST CASES USED FOR CMPN IS 


— 


~ SAME AS THE ASHN TEST, 

EXCEPT THAT EACH TEST CASE IS RUN ONCE, USING SIGNED 
PACKED FORMAT. UNSIGNED PACKED IS TESTED IN THE IN-LINE 
248 nee IDENTICAL TABLE OF TEST CASES USED FOR ASHN IS 


- THE TABLE OF TEST es CONTAINS: 
<SOURCE1 LENGTH 
<SOURCE1 POINTER> 


<DESTINATION oe (PRODUC ) > 
<CC.EXP (PRODUCT) 
THE TWO SOURCES (MULTIPLIER AND  MULTIPLICAND) AND 
EXPECTED DESTINATION (PRODUCT) ARE IN THE TABLE OF TEST 
CASES, IN INTERMEDIATE FORMAT. THE TWO SOURCES ARE 
MULTIPLIED TOGETHER (IN SIGNED PACKED FORMAT) AND THE 
EXPECTED PRODUCT IS COMPARED WITH THE ACTUA' 
RESULT. ALSO, THE EXPECTED VALUES OF RO-RS5 AND THE 
CONDITION CODES ARE COMPARED wi! a. THE ACTUAL 
RESULTS. ANY DISCREPANCIES ARE FLAGGED BY ERROR 
‘ng eee PACKED FORMAT IS TESTED IN THE INLINE 


~ SAME AS "HE MULP TEST, 


SEQ 0016 


6.3 SPECIAL 


7.0 LISTING 
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EXCEPT THAT A DIVP IS EXECUTED AND THE TABLE OF TEST 
CASES CONTAINS QUOTIENT RESULTS FOR THE LAST TWO TABLE 
ENTRIES (DESTINATION POINTER AND CC.EXP). 


SUBROUTINE DESCRIPTION 


, « 
CJKDGA, KEF11-B8 CIS DIAGNOSTIC MACY11 30A(1052) 14-MAR=80 08:04 PAGE 1 
SETUP.P11 13-FEB-80 16:08 SEQ 0018 


;*COPYRIGHT (C) 1980 
: DIGITAL EQUIPMENT CORP. 
MAYNARD, MASS. 01754 
; #PROGRAM BY RICHARD KIMBALL & DONALD SOBIK 
:*THIS PROGRAM WAS ASSEMBLED USING SPMAC 
* SBTTL BASIC DEFINITIONS 
:*INITIAL_ADDRESS OF THE STACK POINTER *** 776 *** 
STACK= 776 


-EQUIV EMT,ERROR :;BASIC DEFINITION OF ERROR CALL 
«EQUIV I0T,SCOPE :sBASIC DEFINITION OF SCOPE CALL 


Sait ( tama DEF INI TIONS 
HT= ODE FOR HORIZONTAL TAB 


ced a a a ed ad eed ed wd 
SOWDNAARW—OOWNOURWNS + 


GE RETURN 
000200 2 ODE FOR CARRIAGE RETURN-LINE FEED 
177776 : EPROCESSOR STATUS WORD 


177774 S 77774 :sSTACK LIMIT REGISTER 
177546 3sLINE CLOCK STATUS REGISTER 
000100 100 LENGTH OF BUFF1 AND BUFF 2 


;*CONSOLE REGISTER DEFINITIONS 
177560 TKS= 177560 


; GENERAL 
£3 STACK POINTER 
PROGRAM COUNTER 


;*PRIORITY LEVEL DEFINITIONS 
PRO= 0 ; ;PRIOR 


NOAUESWN-—O 


 EPRIORITY 
:*CONDITION COPE EQUATES 
NBIT= 10 
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SETUP.P11 13-FFB-80 16:08 BASIC DEFINITIONS SEQ 0019 
57 000004 7BIT= 4 
58 000002 VBIT= 2 
44 000001 CBIT= 1 
61 3*’"SWITCH REGISTER’’ SWITCH DEFINITIONS 
62 100000 Sw15= 100000 
63 040000 Sw14= 
020000 Sw13= 20000 
65 010000 Swi2= 1 
66 000 SWwi1= 4000 
67 002000 Swi0= 2000 
001000 Swo9= 1000 
69 00 SwO8= 
70 000200 SwO7= 2090 
71 000100 SwO6= 160 
72 0 SswoS= 40 
73 000020 SwO4= 20 
74 000010 SwO3= 10 
75 000004 SwO2= 4 
76 000002 Swol= 2 
77 000001 swod= 1 
78 EQUIV Sw09,Sw9 
79 EQUIV SWO08,SW8 
-EQUIV SWO7,SW7 
81 -EQUIV SwWw06 
82 -EQUIV SWO5,SW5 
83 -EQUIV SwWO04, 
-EQUIV SWO03,SW3 
85 -EQUIV SWO2,SW2 
86 -EQUIV SWO1,SW1 
Hh -EQUIV SWO00,SWO 
89 ;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
90 100000 BIT1S= 1 
91 040000 BIT14= 40000 
92 020000 BIT13= 20000 
93 010000 BIT12= 10000 
000 BIT11= 4000 
95 002000 BIT10= 2000 
001000 BITO9= 1000 
97 00 BITO8= 400 
98 000200 BITO07= 200 
000100 BITO6= 100 
100 0 BIT0S5= 40 
101 000020 BIT04= 20 
102 000010 BITO03= 10 
103 000004 BITO2= 4 
104 000002 BITO1= 2 
105 000001 BITOO= 1 
-EQUIV BITO9,BIT9 
107 -EQUIV 81T08,BI1T8 
108 -EQUIV BITO7,B1T7 
109 -EQUIV BIT06,B116 
110 -EQUIV BIT05,BIT5 
111 -EQUIV BITO4,BITS 
112 -EQUIV BIT03,B1T3 
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SETUP.P11 


MIMIMIMPGNINININIDN 2 A 2 Os OS OS 


ek a dk ts = et a ot 8 th tS th ot I 
lw Ww LA WAWWGW 
BSRBIRKAKRANLSSSRVRORANVSSananew 


140 


151 


and ant al ad cad enh cael ens ent 
SSSVV ESS 
WODNA AHR WP 


13-FEB-80 16:08 


000007 


076020 


BASIC DEFINITIONS 


-EQUIV BITO2,BIT2 
-EQUIV 81701,B1T1 
-EQUIV BITOO,BITO 


;*BASIC ‘'CPU'' TRAP VECTOR ADDRESSES 


TIME OUT AND OTHER E}0RS 
:ERESERVED AND ILLEGAL INSTRUCTIONS 


Si TRACE TRAP 
;; BREAKPOINT TRAP (BPT) 
: INPUT/OUTPUT TRAP (JOT) **SCOPE** 


::POWER FAIL 
SSEMULATOR TRAP (EMT) 
SS TRAP'' TRAP 


3: TTY KEYBOARD VECTOR 

3:3 TTY PRINTER VECTOR 

;;LTC VECTOR 

s INITIAL APT SOFTWARE SWR VALUE 


; *EQUATES FOR ROUTINE CALLS THAT USE TRAP INSTRUCTION 
TYPE= ROUT INE 


104401 
TYPOC= 104402 
TYPOS= 104 
TYPON= 104404 
GTSWR= 104405 
CKSWR= 1 


RDLIN= 104410 


TTY TYPEOQUT 

: TYPE OCTAL NUMBER (WITH LEADING ZEROES) ROUTINE 
TYPE OCTAL NUMBER (NO LEADING ZEROES) ROUTINE 

; TYPE OCTAL NUMBER (AS PER LAST CALL) ROUTINE 
:GET SOFT=SWR SETTING ROUTINE 

; TEST FOR CHANGE IN SOFT=SWR ROUTINE 

TTY TYPEIN CHARACTER ROUTINE 

TTY TYPEIN STRING ROUTINE 


—WeDAREAAAAARARRAAAAARARARALASESALLARELESEALAS ESAS ELE RRR AREAL SS OS | 


*** COMMERCIAL INSTRUCTION SET OPCODE EQUATES *** 


MFPT _ =000007 


1 LOAD DESCRIPTORS 


:MOVE FROM PROCESSOR TYPE 


L2D0 76 LOAD 2 DESCRIPTORS a(RO)+ 
L2D1 =76021 :LOAD 2 DESCRIPTORS a(R1)+ 
L2d2 =76022 LOAD 2 DESCRIPTORS a(R2)+ 
L2eD3 =76023 :LOAD 2 DESCRIPTORS a(R3)+ 
L2D4 =76024 sLOAD 2 DESCRIPTORS a(R4)+ 
L2D5 =76025 sLOAD 2 DESCRIPTORS @(R5)+ 
L2D6 =76026 LOAD 2 DESCRIPTORS a(R6)+ 
L2D7 =76027 LOAD 2 DESCRIPTORS a(R7)+ 
L3D0 =76060 SLOAD 3 DESCRIPTORS a(RO)+ 
L3D1 =76061 ;LOAD 3 DESCRIPTORS a(R1)+ 
L3D2 =76062 ;LOAD 3 DESCRIPTORS a(R2)+ 
L3D3 =76065 :LOAD 3 DESCRIPTORS a(R3)+ 
L3D4 =76 : LOAD ; DESCRIPTORS a(R4)+ 
L305 =76065 :LOAD 3 DESCRIPTORS a(R5S)+ 
L3D6 =76066 LOAD 3 DESCRIPTORS a@(R6)+ 
L3D7 =76067 :LOAD 3 DESCRIPTORS @(R7)+ 


: CHARACTER STRING INSTRUCTIONS 


I 2 
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ETUP.P11 13-FEB-80 16:08 BASIC DEFINITIONS SEQ 0021 
169 076030 MOVC =76030 sMOVE CHARACTER 
170 076031 MOVRC =76031 SMOVE REVERSE CHARACTER 
171 076032 MOVTC  =76032 :MOVE TRANSLATED CHARACTER 
172 076040 LOCC =76040 ;LOCATE CHARACTER 
173 076041 SKPC =76041 SKIP CHARACTER 
174 076042 SCANC =76042 ; SCAN CHARACTER 
175 076043 SPANC =76043 7 SPAN C 
176 076044 CMPC =76044 ; ARE CHARACTER 
Lia 076045 MATC =76045 ;MATCH CHARACTER 
179 076130 MOVCI =76130 IN-LINE VERSION OF MOVE CHARACTER 
180 076131 MOVRCI =76131 : IN-LINE VERSION 
18 076132 MOVTCI =76132 : o 
182 076140 LOCCI =76140 : 8 
1 076141 SKPCI = =76141 : an 
184 076142 SCANCI =76142 : “4 
185 076143 SPANCI =76143 : = 
186 076144 CMPCI =76144 j es 
187 076145 MATCI] =76145 Z 
188 
189 
190 : NUMERIC STRING INSTRUCTIONS 
191 076050 ADDN =76050 :ADD NUMERIC 
192 076051 SUBN =76051 ; SUBTRACT NUMERIC 
193 076052 CMPN =76052 : COMPARE NUMERIC 
194 076053 CVINL =76053 [CONVERT NUMERIC TO LONG 
195 076054 CVTPN = =76054 CONVERT PACKED TO NUMERIC 
196 076055 CVTNP = =76055 [CONVERT NUMERIC TO PACKED 
197 076056 ASHN =76056 sARITHMETIC SHIFT NUMERIC 
Lb 076057 CVTLN =76057 CONVERT LONG TO NUMERIC 
200 076150 ADDNI =76150 i IN-LINE VERSION OF ADD NUMERIC 
201 076151 SUBNI =76151 : IN-LINE VERSION 
202 076152 CMPNI_ =76152 : wis 
203 076153 CVINLI =76153 : * 
204 076154 CVTPNI =76154 : - 
205 076155 CVTNPI] =76155 3 “i 
206 076156 ASHNI =76156 : “ 
207 076157 CVTLNI =76157 ; eo 
208 
209 
210 : PACKED STRING INSTRUCTIONS 
211 076070 ADDP =76070 ;ADD PACKED 
212 076071 SUBP =76071 ; SUBTRACT PACKED 
213 076072 CMPP =76072 ; 
214 076073 CVTPL =7607 CONVERT PACKED TO LONG 
215 076074 MULP =76074 MULTIPLY 
216 076075 DIVP =76075 :DIVIDE PACKED 
217 076976 ASHP =76076 cARITHMETIC SHIFT PACKED 
$18 076077 CVTILP = =76077 CONVERT LONG TO PACKED 
220 076170 ADDPI =76170 i IN-LINE VERSION OF ADD PACKED 
221 076171 SUBPI =76171 7 IN-LINE VERSION 
222 07617 =7617 : vm 
223 07617 CVTPLI =7617 : a 
224 076174 MULP] =76174 : _ 
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CJKDGA, 

SE TUP.P11 13-FEB-80 16:08 BASIC DEFINITIONS 
225 076175 DIVPI =76175 3 ae 
226 076176 ASHP] =76176 3 me 
227 076177 CVTLPI] =76177 : tes 
228 
229 
230 ¢ CIS CLASS ILLEGAL OPCODE 
$3 076033 ILLOP =76033 ; ILLEGAL OPCODE 
Ser LRA ERR EEE 
235 
236 
237 
238 
Sip -SBTTL TRAP CATCHER 
241 000000 -=0 
242 ;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT"' 
243 ;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
ie 000174 LOCATION CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
246 000174 000000 i -WORD 0O :2SOFTWARE DISPLAY REGISTER 
4 000176 000000 WREG: “WORD 0 3zSOFTWARE SWITCH REGISTER 
249 
250 0001 -=100 ;HANDLE EVENT LINE INTERRUPT 
251 000100 000102 -WORD 102 
$26 000102 . WORD 
254 000200 -=200 
$22 000200 000137 001200 JMP START ; STARTING LOCATION FOR PROGRAM 
257 000300 -=300 
$38 -SBTTL ACT11 HOOKS 
260 PRR EERE RARER EERE EERE EERE REE EER 
261 “HOOKS REQUIRED BY ACT11 
262 000300 SSVPC=. SAVE PC 
263 000046 -=46 
264 000046 055214 SENDAD 321)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
265 000052 =52 
266 000052 -WORD 0 sse)seT Loc. gee TO ZERO 
267 000300 =$SVPC zz RESTORE P 
$8 -SBTTL APT PARAMETER BLOCK 
270 [ERA R ARERR REAR ERER ERE E ERE REEE RRR 
271 Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT » 
272 LEAR RARER RARER EERE ERAE AERA EEREREERE REE 
273 000300 . $X=. 3;SAVE CURRENT LOCATION 
274 000024 224 a POWER ra TO POINT TO START OF PROGRAM 
275 000024 000200 200 FOR APT START UP 
276 000044 244 :3POINT TO APT INDIRECT ADDRESS PNTR. 
277 000044 000300 SAPTHDR ;;POINT TO APT HEADER BLOCK 
278 000300 -=. 5X RESET LOCATION COUNTER 
279 LEAR R EAA R EEA RTR ERE 
280 “SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


SEQ 0022 


CJKDGA, 
SETUP.P11 


281 


aad aa and ax ath aa a a a ed 
“SOON OuUsWN—oO 


8 
E REREEEEE 


000446 


SSeREeESEcs 


000000 
000630 
000300 
000300 


000000 
177707 


KEF11=8 CIS DIAGNOSTIC MACY11 30A(1052) 
13-FEB-80 16:08 APT 


PARAMETER BLOCK 


: INTERFACE SPEC. 


SAPTHD: 
SHIBTS: 
SMBADR : 
STSTM: 

SPASTM: 
SUNITM: 
.SBTTL 


s*THIS 
3 *USED 


SCMTAG: 
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SEQ 0023 


0 ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
SMAIL :ZADDRESS OF APT MAILBOX (BITS 0-15) 
TIM OF LONGEST TEST 
300 UN TIME IN ray OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
< ADDI ITIONAL RUN TIME (SECS) OF A aate FOR EACH ADDITIONAL UNIT 
ieee _SETEND-SHAIL/2 3LENGTH MAILBOX~E TABLE (WORDS) 


FF RARER AREER EEEREEERRERRERRERKEEREEREREEREKERRERREREERE 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
IN THE PROGRAM. 


300 fear 


ecu -COOCCCOoOm 


= 
Gm 
Bar 
mm 
oO 


2 
12 


0 
aay er retares 


COoooooooco0[0o 


;sSTART OF COMMON TAGS 


; CONTAINS THE TEST NUMBER 
;;CONTAINS NUMBER OF ITERATIONS DESIRED 


ZICONTAINS SUBTEST OP ADDRESS 
::CONTAINS SCOPE RETURN FOR ERRORS 


2S CONTAINS TOTAL ERRORS DETECTED 


CONTAINS MAX. ERRORS PER TEST 


; s CONTAINS PC OF LAST —— INSTRUCT ION 
: AUTOMATIC MODE INDICATOR 
3 INTERRUPT MODE INDICATOR 


; sADDRESS OF SWITCH REGISTER 
2 ¢ADD RESS OF DISPLAY REGISTER 
CONTAINS NULL CHARACTER FOR FILLS 
;:CONTAINS # OF Ceaee CHARACTERS REQUIRED 
:3 INSERT FILL CHARS. AFTER A ‘LINE FEED"* 
: TERMINAL AVAILABLE "FLAG (BIT<07>=0=YES) 


:SIGN FLAG: 0 FOR +, -1 FOR - 


ERROR FLAG 
2 INTERRUPT FLAG 


° 


:FLAGS FIRST PASS OF nek yey TEST 
;DECIMAL STRING DATA TYPE FLAG 
OQ THEN WE ARE IN XXDP CHAIN MODE 


;TE 


; TEMPORARY COUN 
i TIME~DELAY COUNT STORED HERE 


: TEMPORARY VARIABLE 
; TEMPORARY VARIABLE 


L¢ 
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: earn VARIABLE 


:TE 
; TEMPORARY VARIABLE 


sFIRST DECIMAL STRING wrk 
;SECOND DECIMAL STRING LENGTH 
CONDITION CODES MAY BE SAVED HERE 
EXPECTED CONDITION CODES 
;EXPECTED VALUE OF | 


; RS 

EXPECTED BUFFER DATA 
;BUFFER POINTER 

POINTER TO yt TEST CASE IN TEST TABLE 
;CONTROL CHIP 

ADDRESS OF THE ASCII TO BE PRINTED 
ERROR TYPE NUMBER 


DECIMAL STRING [etme 


CIMAL_STRING TEMPORARY 
TEST DATA GETS LOADED HERE 


;GENERAL PURPOSE REGISTERS MAY BE SAVED HERE 


:PSW MAY BE SAVED HERE 
: TEMPS FOR DS DESCRIPTORS 


0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


. 

. 
DESCRS: 
Ite lit iit iitiiiii iii ii ititiiiiiiititi iti itt 


*SBTTL APT MAILBOX~E TABLE 


MARAAAALALALLSZLLLASELELE SEAL SEES EERE EEE SERRE RSE ETT CCST TP ee ST 





CJKDGA, KEF11=B CIS DIAGNOSTIC MACY11 Ee 
SETUP .P11 13-FEB-80 16:08 


M 2 
14-MAR=80 08:04 PAGE 8 


MAILBOX~E TABLE 


MAILBOX 
t IMESSAGE TYPE CODE 
;FATAL ERROR NUMBER 


; sMESSA NGTH 

32APT ENVIRONMENT TABLE 
7 ENVIRONMENT BYTE 
ENVIRONMENT MODE BITS 
7ZAPT SWITCH REGISTER 
++ rg a et 


YPE ,OPT i”. 
iTS S11 ecU 
1/04=01, "15 /05=02, 11/20=03,11/40=04,11/45=05 
70=06 ,PDQ=07,0=10 


: / 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT _ 
BIT 8=MEMORY MANAGEMENT 
;:HIGH ADDRESS,.M.S. BYTE 


FERRARA KEEEERERE RE RKERREEEREEEEREREEEEREEEKEREEEKEEE 


-SBTTL START UP AND INITIALIZATION ROUTINES 


FERRARA REAR EERE ERERRKEEERREEEEREERERERREREKREEEEREEREEE EE 


START: 


. SBTTL 
72CLEAR 


012737 
2737 
737 


lelelelelelelelelelelelojlo) 
ed aad ad ad a ad od ed ed ed ed ad ed 
Sass 


MOV 
sz INITIALIZE 
MOV 


INITIALIZE THE COMMON TAGS 

THE COMMON TAGS (SCMTAG) AREA 
MOV #SCMTAG RO 
aS (R6) + 7-CLEAR MEMORY LOCATION 


:zFIRST LOCATION TO BE CLEARED 


#SWR,R6 ; ;DONE? 
;LOOP BACK IF NO 
:ESETUP THE STACK POINTER 


#1100,SP 
A FEW VECTORS 
#TIMOUT ,a#ERR TIMEOUT VECTOR 


#340 SERRYEC IO. LEV 
#ILLRES ,a#RESVEC SILLEGAL/RESERVED INSTR. VECTOR 
#340, @ARESVEC+2 


ESVEC+ LEVEL 
#SSCOPE ,a# 1OTVEC 2720T T VECTOR FOR SCOPE ROUTINE 


#340. a#iOTVEC+2 ; gl 

#STRAP , a# TRAPVE 3443 VECTOR FOR TRAP CALLS 
#360, QbTRAPVE ore! lee FAILURE VECTOR 
#540, anbunvec es ;:LEVEL 7 

+E CEYUP END-OF -PROGRAM COUNTER 

MIPADRS S: INITIALIZE THE LOOP ADDRESS FOR SCOPE 
HASUPAR 760 TO 102 
#2,a7102 RTI 


SEQ 0025 
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000176 
000174 


000636 
000200 


000652 


000042 
000042 
177777 
000650 
000001 
177777 
000422 
000464 
060434 


000422 


2 
MACY11 30A(1052)__ 14=MAR=80 7 o NPAGE 9 


000426 
000430 
000651 
000426 


000046 
000464 
000001 
000422 


000546 


INITIALIZE THE COMMON T 
;SET UP SOFTWARE SWITCH REGISTER 


§$: mov ASWREG, SWR ::POINT TO SOFTWARE SwWR 
MOV #DISPREG, DISPLAY 
CLR SPASS :CLEAR PASS COUNT 
BITB #APTSIZE,$ENVM TEST USER SIZE UNDER APT 
BEQ 67$ YES,USE NON-APT SWIT 


SWITCH 
678 MOV AHSSWREG, SWR 7INO,USE APT SWITCH REGISTER 


DETERMINE OPERATING ENVIRONMENT 
TST ase 


S ;ARE WE IN ACT/XXDP AUTO MODE? 
BEQ 1$ ‘BRANCH IF NO 
CMP W442 ,aH46 :IS IT ACT AUTO MODE? 
BEQ 2$ ‘BRANCH IF Y 
Mov #-1 .XXDP :SET XXDP CHAIN MODE INDICATOR 
1$: CMPB Ss SEN, #1 TARE WE IN APT AUTO MODE? 
BNE 3$ SBRANCH IF 
2$: MOVB  #1,$AUTOB sSET AUTO MODE INDICATOR 
“PRINT TITLE IF NOT IN ACT OR APT AUTO MODE 
S$; INC #=1 :FIRST TIME? 
$s :SKIP TITLE IF NOT 
TST SAUTOB SARE WE IN AUTO MODE? 
BEQ 4$ ;BRANCH TO TITLE TYPEOUT IF NOT 
TST XXDP z1S THE AUTO MODE UNDER XXDP? 
BEQ 5$ [SKIP TITLE IF NOT 
4$: MOV ATITLE.MSGADR 
1YPE PRINT OUT THE TITLE 
“GET THE VALUE IN THE SOFTWARE SWITCH REGISTER 
5$: TST $AUTOB zARE WE IN AN AUTOMATIC MODE? 
BNE BEGIN ‘BRANCH IF YES 
GTSwR TASK FOR SWR INPUT FROM THE CONSOLE TERMINAL 


BEGIN: 


SEQ 0026 


CJKDGA, KEF11-8 CIS DIAGNOS 
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000004 
017737 
042737 


005737 
001406 


032737 
001002 


000137 


012737 
005037 
012737 


176710 
177700 
000474 
000001 


015716 


000544 


177776 
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INITIALIZE THE COMMON T 


FERRER AREA RARER EE EERE ERK KEKEERERKE EEE 
ITITIIIIITIIITIITITI TILT LI LITT LL TLL LLL LEL ELLE 


C1IS4 MODULE 


THIS MODULE TESTS THE LOAD DESCRIPTOR INSTRUCTIONS AND THE CHARACTER 


INSTRUCTIONS: L2DR, L3DR, MOVC, MOVRC, MOVTC, LOCC, SKPC, SCANC, 


SPANC, CMPC, AND MATC. 


JAAR ERE KEE ERE KEKE REE EKER ERE EERE REE EK 
TT TITIITLILI LLL LETTE LLL LLE ELLE LEE 


-SBTTL CIS4 INITIALIZATION 


DDB AIS SISO IIIS IOI IOIISISIOIIOIIIOICIIIIOI III IOI TOI TTT TIA SAAS SASSI SAS SS 
: 

; CIS4 INITIALIZATION 

. 


FARRER EERE EERE REE EEREKREERERREKEEKEEKKEEKEEEKEK 


7 I1F _SWR<5:0> ARE CLEARED OR IF SWR<O> IS SET THEN EXECUTE 
; THE CIS4 MODULE; OTHERWISE, SKIP TO THE NEXT CIS MODULE. 


INLINE <SCOPE> 
LET TEMPO := @SWR CLR.BY #177700 
IF TEMPO NE #0 THEN 


IF #BITO NOTSETIN TEMPO THEN 


INLINE <JMP CIS4END> 
ENDIF 
ENDIF 


LET CTL := #4 CONTROL CHIP NUMBER 
LET ERRFLG := #0 : INITIALIZE ERROR FLAG 
LET PSW := #340 


@SWR, TEMPO 
#177700, TEMPO 


TEMPO 
$50000 


#81T0, TEMPO 
$50001 


CIS4END 


#4,CTL 
ERRFLG 
#340 ,PSwW 
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-SBTTL L2DR 


STARR REE AEEERE REE E EERE EAEEE ERR E REE RRERR ERE E EERE 


; L2DR TEST 
; THIS TEST USES L2D0, L2D4, AND L2D7 TO TEST L2DR. 


SL RARER EEE REE EEE EERE EERE EERE EERE ERE EEE EKER EEE EH 


INLINE <XL2DR:> 


XL2DR: 
INLINE <SCOPE> 
000004 SCOPE 
LET STIMES := #20 ; ITERATION COUNT 
012737 009404 MOV #20, $TIMES 
LEFT COUNT := #2 
012737 000466 MOV #2, COUNT 
Rc PEAT 


-+ 
; SET UP THE GPR*S AND DO 
; THE CIS INSTRUCTION 


CALL CLRREG ; CLEAR RO=R5 
004737 055330 PC, CLRREG 
IF COUNT EQ #2 THEN 
023727 000466 COUNT , #2 
001005 $50003 
LET RO := #ADR.A 
012700 002172 #ADR.A,RO 
INLINE <CCC> 
000257 


INLINE <L2D0> 
076020 


ELSE 
000404 BR $50004 


LET R& := #ADR.A 

012704 #ADR.A,R4S 
INLINE <SCC> 

000277 


076024 INLINE <L2D4> 
ENDIF 


LET CC := PSwW 

013737 177776 PSW.CC 
LET CC := CC CLR.BY #177760 

042737 177760 B #177760,CC 
LET ERR := #1 :CODE FOR INSTRUCTION FAILURE 

012737 000001 MO #1, ERR 


+ 
: CHECK RESULTS AND REPORT ERRORS 
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IF COUNT EQ #2 THEN 
023727 000466 000002 COUNT ,42 
001006 


$50005 
IF CC NE #0 THEN 
005737 000516 


CC 
001402 $50006 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$50006: 
ELSE 
000406 $50007 


$50005: 
IF CC NE #17 THEN 
023727 000516 CC,a17 
001402 $50010 
CALL ERROR 
004737 056274 PC,ERROR 
ENDIF 


ENDIF 


IF RO NE ALPHA THEN 
020037 002200 RO, ALPHA 
001402 $50011 
CALL ERROR 
004737 056274 PC.,ERROR 
ENDIF 


IF R1 NE ALPHA+2 THEN 
020137 002202 R1,ALPHA+2 
001402 


$50012 
CALL ERROR 
004737 056274 PC ERROR 
ENDIF 


IF R2 NE BETA THEN 
020237 002204 R2,BETA 
$50013 


001402 
CALL ERROR 
004737 056274 PC ,ERROR 


ENDIF 
$50013: 
020337 002206 2s oe R3,BETA+2 
+ 
001402 $50014 
CALL ERROR 


004737 056274 PC ,ERROR 
ENDIF 


IF RS NE #0 THEN 
005705 rae 
001402 $50015 


CALL ERROR 
004737 056274 PC ERROR 
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647 002006 ENDIF 

648 002006 ; $50015: 

649 002006 IF COUNT EQ #2 THEN 

650 002006 pe aree 000466 000002 CMP cota 


BNE $5001 
652 002016 IF R& NE #0 THEN 
653 002016 005704 TST R4 
654 002020 001402 BEQ $50017 
655 002022 CALL ERROR 
656 002022 004737 056274 JSR PC,ERROR 
657 002026 ENDiF 
658 002026 $50017: 
659 002026 ELSE 
660 002026 000405 BR $50020 
661 002030 $50016: 
662 002030 IF R4& NE #ADR.A+4 THEN 
663 002030 020427 002176 CMP R4 ,AADR.A+4 
664 002034 001402 BEQ $50021 
665 002036 CALL ERROR 
666 002036 004737 056274 JSR PC ERROR 
667 002042 ENDIF 
668 002042 $50021: 
669 002042 ENDIF 
670 002042 $50020: 
671 002042 LET COUNT := COUNT - #1 
672 002042 005337 000466 DEC COUNT 
673 002046 UNTIL COUNT EQ #0 
674 002046 005737 000466 TST COUNT 
675 002052 001255 BNE $50002 


SEQ 0030 


+ 
678 > TEST THE SPECIAL CASE OF USING R7 
680 ; 


681 002054 LET RG := #0 

682 002054 005004 CLR R4 

683 002056 LET RS := #0 

684 002056 005005 CLR RS 

685 002060 INLINE <L2D7> 

686 002060 076027 L2D7 

687 002062 INLINE <.WORD 240> NOP 

688 002062 000240 .WORD 240 
689 002064 INLINE <.WORD 402> :BR TO ERROR CALL 

690 002064 000402 «WORD 402 

691 002066 INLINE <.WORD 403> :BR OVER ERROR CALL 

692 002066 000403 .WORD 403 
693 002070 INLINE <.WORD 240> : NOP 

69% 002070 000240 .WORD 240 
695 002072 CALL ERROR 

69% 002072 004737 056274 JSR PC ERROR 
697 002076 IF RO NE #240 THEN 

698 002076 020037 000240 CMP RO, a#240 
699 002102 001402 BEQ $56022 
700 002104 CALL ERROR 

701 002104 004737 056274 JSR PC .ERROR 
702 002110 ENDIF 


CJKDGA, KEF11-B8 CIS DIAGNOSTI 
12 80 13:37 


CJKDGA.P11 


YIPIIAYIVIAYasa3S3 
WOONAUVISWN—O NOU 


721 
722 
3 


020137 
001402 


004737 


020237 
001402 


004737 


020337 
001402 


004737 


005704 
001402 


004737 


005705 
001402 


004737 


000137 


070707 


000242 


056274 


000402 


056274 


000404 


056274 


056274 


056274 


002214 


IF R1 NE @#242 THEN 


CALL ERROR 
ENDIF 
IF R2 NE a#402 THEN 


CALL ERROR 
ENDIF 
IF R3 NE @4#404 THEN 


CALL ERROR 
ENDIF 
IF R4 NE #0 THEN 


CALL ERROR 
ENDIF 
IF RS NE #0 THEN 


CALL ERROR 
ENDIF 
INLINE <JMP XL 3DR> 


ze 
; TEST TABLE FOR L2DR AND L3DR 


ADR.A: .WORD ALPHA 
-WORD BETA 
- WORD 
ALPHA: .WORD 177777 
- WORD 052525 
BETA - WORD 193 2 
- WORD 177777 
GAMMA: .WORD 107070 
- WORD 070707 
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$50022: 


$50023: 


$50024: 


$50025: 


$50026: 


$50027: 


BEQ 


BEQ 


R1 ,a4242 


$50023 


PC,ERROR 
R2,a#402 
$50024 

PC,ERROR 


R3,04404 
$50025 


PC,,ERROR 


R4 
$50026 
PC,.ERROR 


RS 
$50027 
PC ,ERROR 


XL 3DR 


SEQ 0031 
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-SBTTL L3DR 


SPARE AEE AA RARER EERE RARER RER RARE EERE REE RE KERR EH 


L3DR TEST 
; THIS TEST USES L3D3, .3D5, AND L3D7 TO TEST L3DR. 


SPER RE EERE EERE EERE RAE R ARERR EERE EER 


INLINE <XL3DR:> 


XL 3DR: 
INLINE <SCOPE> 
000004 SCOPE 
LET STIMES := #20 ; ITERATION COUNT 
012737 000020 009404 MOV #20,$TIMES 
LET COUNT := #2 
012737 000002 000466 MOV #2,COUNT 


REPEAT 
$50030: 


3+ 
: SET UP THE GPR*S AND DO 
; THE CIS INSTRUCTION 


CALL CLRREG 
004737 055330 PC,CLRREG 
IF COUNT EQ #2 THEN 
023727 000466 000002 COUNT ,#2 
001005 


$50031 
LET R3 := MADR.A 
012703 002172 #ADR.A,R3 
INLINE <CCC> 
000257 


INLINE <L3D3> 
076063 


ELSE 
000404 BR $50032 


LET RS := #MADR.A 

012705 #ADR.A,RS 
INLINE <SCC> 

000277 


INLINE <L3D5> 
076065 
ENDIF 


LET CC := PSW 

013737 177776 000516 PSwW.CC 
LET CC := CC CLR.BY #177760 

042737 177760 000516 B #177760,CC 
LET ERR := #1 sCODE FOR INSTRUCTION FAILURE 

012737 000001 000550 Mi #1 ERR 


780 
781 
782 
783 
784 
785 
786 
787 
788 


CPS er RT RE RS RRL: 


+ 
; CHECK RESULTS AND REPORT ERRORS 


Oo 
—s 
Oo 
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CJKDGA.P11 


815 


wy Tat eet 


023727 
001006 
005737 
001402 
004737 


000406 
023727 
001402 
004737 


020037 
001402 


004737 


020137 
001402 


004737 


020237 
001402 


004737 


020337 
001402 


004737 


020437 
001402 
004737 


A TIC 
0 13:37 
000466 
000516 


056274 


000516 


056274 


002200 


056274 


002202 


056274 


002204 


056274 


002206 


056274 


002210 


056274 


H 3 
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000002 


000017 


IF COUNT EQ #2 THEN 


IF CC NE #0 THEN 


CALL ERROR 
ENDIF 
ELSE 


IF CC NE #17 THEN 


CALL ERROR 
ENDIF 
ENDIF 
IF RO NE ALPHA THEN 


CALL ERROR 
ENDIF 
IF R1 NE ALPHAt2 THEN 


CALL ERROR 
ENDIF 
IF R2 NE BETA THEN 


CALL ERROR 
ENDIF 
IF R3 NE BETA+2 THEN 


CALL ERROR 
ENDIF 
IF R& NE GAMMA THEN 


CALL ERROR 


$50034: 


$50033: 


$50036: 
$50035: 


$50037: 


$50040: 


$50041: 


$50042: 


COUNT ,#2 
$50033 


CC 
$50034 
PC ERROR 


$50035 


CC,#17 
$50036 


PC,ERROR 


RO, ALPHA 
$50037 


PC,,ERROR 


R1,ALPHA+2 


$50040 
PC ERROR 


R2,BETA 
$50041 
PC ERROR 


R3,BETA+2 
$56042 


PC ,ERROR 


R4, GAMMA 
$50043 
PC ,ERROR 


SEQ 0033 
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ENDIF 


$50043: 
020537 002212 IF RS NE-GAMMA+2 THEN 
001202 ssbhee 
CALL ERROR 
004737 056274 PC ,ERROR 


ENDIF 
LET COUNT := COUNT = 41 panels 
005337 000466 j 7 COUNT 


UNTIL COUNT EQ #0 
005737 000466 COUNT 
001265 $50030 


39 
: TEST THE SPECIAL CASE OF USING R7 


INLINE <L3D7> 
INLINE <.WORD 240> ; NOP 
INLINE <.WORD 240> ; NOP 
INLINE <.WORD 402> :BR TO ERROR CALL 
INLINE <.WORD 403> :BR OVER ERROR CALL 
4 
INLINE <.WORD 240> ; NOP nee 
240 
056276 CALL ERROR 
PC.ER 
IF RO NE @#240 THEN gigi 
000240 vy Th oh 
056276 CALL ERROR 
PC, 
ENDIF it 


IF R1 NE @4#242 THEN 
000242 R1 > Na 


CALL ERROR aa 
056274 —_ PC ,ERROR 


If R2 NE a#240 THEN 
000240 R2 aged 


5 
056276 CALL ERROR seein 
new PC .ERROR 


IF R3 NE @#242 THEN 
000242 R3,a#242 


240 
240 
402 


880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
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12=MAR-80 
001402 
004737 


020337 
001402 


004737 


020437 
001402 


004737 


020537 
001402 


004737 


000137 


13:37 


056274 


000242 


056274 


000402 


056274 


000404 


056274 


002612 


CALL ERROR 
ENDIF 
IF R3 NE @4242 THEN 


CALL ERROR 
ENDIF 
IF R4 NE @#402 THEN 


CALL ERROR 
ENDIF 
IF RS NE @4#404 THEN 


CALL ERROR 
ENDIF 
INLINE <JMP XMOVC> 


$50050: 


$50051: 


$50052: 


$50053: 


$50050 
PC ERROR 


R3,a#242 
$50051 


PC,ERROR 


R4 ,a#402 
$50052 


PC,ERROR 


R5 ,a#404 


$50053 


PC,.ERROR 


XMOVC 


SEQ 0035 
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SEQ 0036 
951 .SBTTL MOVC 
952 FF RARER ARERR ERE E RARER RARER EEE ERR EERE REE 
953 3 
oe : MOVC TEST 
956 PeTTI TT itiiiiiitit ii itiiiiiiiititititiiitiitiiiititi titi titi tits 
957 
958 002612 INLINE <XMOVC:> 
959 002612 XMOVC : 
960 002612 INLINE <SCOPE> 
961 002612 000004 SCOPE 
3e 002614 LET STIMES := #20 ; ITERATION COUNT 
963 002614 012737 000020 000404 MOV #20, $TIMES 
964 002622 LET COUNT := TMOVC :GET TEST COUNT 
965 002622 013737 004134 000466 MOV TMOVC , COUNT 
966 002630 LET TSTCAS := #TMOVC+2 zPOINT TO FIRST TEST CASE 
967 002630 012737 004136 000542 MOV #TMOVC+2, TSTCAS 
968 ;REPEAT 
969 002636 INLINE <$5030:> 
970 002636 $5030: 
971 
972 ;* 
973 > GET TEST DATA FROM TABLE 
974 :- 
975 
976 002636 LET RO := TSTCAS 
977 002636 013700 000542 MOV TSTCAS,RO 
978 002642 LET DATAOO := (RO)+ 7SRC.LEN 
979 002642 012037 000560 MOV (RO) +, DATAOO 
980 002646 LET DATAO1 := (RO)+ 7SRC.ADR 
981 002646 012037 000562 MOV (RO) +,DATAO1 
982 002652 LET DATAO2 := (RO)+ :DST.LEN 
983 002652 012037 000564 MOV (RO) +, DATAO2 
984 002656 LET DATAO3 := (RO)+ :DST.ADR 
985 002656 012037 000566 MOV (RO) +, DATAO3 
986 002662 LET DATAO4 := (RO)+ ZFILL CHAR. 
987 002662 012037 000570 MOV (RO) +, DATA04 
988 002666 LET DATAOS := (RO)+ :SRC.BUFF .STATE 
989 002666 012037 000572 MOV (RO) +, DATAOS 
990 002672 LET DATAO6 := (RO) 7DST.BUFF .STATE 
ot 002672 011037 000574 MOV (RO) ,DATAO6 
993 i+ 
994 : SET UP THE GPR'S 
995 ; EXPECTED GPR'S AND CONDITION CODES, 
996 ; AND BUFFERS. 
997 - 
998 
999 002676 LET RO := DATAOO 
1000 002676 013700 000560 MOV DATAOO,RO 
1001 002 LET R17 := DATAO1 
1008 002 013701 000562 MOV DATAO1,R1 
1003 002706 LET R2 := DATAO2 
1004 002 013702 000564 MOV DATAO2 .R2 
1005 00271 LET R3 := DATAO3 
1006 002712 013703 000566 MOV DATAO3.R3 
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S 


LET RG := DATAO4 
013704 000570 DATA04 ,R4 

IF #1 SETIN COUNT THEN 
032737 000001 #1, COUNT 
001403 $50054 

LET RS := #177777 

012705 177777 a #177777,R5 
000401 $50055 


LET RS : 
005005 RS 
ENDIF 


INLINE <CMP RO,R2> 
020002 RO,R2 
LET CC.EXP := PSW 
013737 177776 PSW,CC.EXP 


LET CC.EXP := CC.EXP CLR.BY #177760 ' 
042737 177760 #177760,CC.EXP 
IF #CBIT SETIN CC.EXP OR #ZBIT SETIN CC.EXP THEN 
032737 000001 #CBIT,CC.EXP 
001004 BNE $50056 


032737 #7BIT,CC.EXP 
001403 $50057 


LET RO.EXP : ‘ 
005037 CLR RO.EXP 
ELSE 
000404 BR. $50060 


$50057: 
LET RO.EXP : :SRC.LEN = DST.LEN ; 
010037 ’ MOV RO,.RO.EXP 
160237 R2,RO.EXP 


ENDIF ‘eit | 
005037 sorter gages R1.EXP 
005037 LET R2.EXP : 2.20 
005037 ange R3.EXP 
010437 8 R4.R4.EXP 
010537 citbemmmapt. RS.RS.EXP 
010137 sstdbebigteag . R1.BFADRS 
005737 IF DATAOS EQ #0 THEN DATAOS 
001003 oe Stl BNE  $50061 
004737 i PC .CLRBUF 
000411 $5062 


38 


lelelelelelelelelele] 
— Se os SY So 
WONAUSWN oO 


88 


SEERS 


On 


ee em ek ed et nd ad nd nd ot I 


ooo 
338 


32 
1033 
34 


10 

1035 
1036 
1037 
1038 


SEG 


RERGSSSSLSSSIRERERE 
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063 003062 IF DATAOS EQ #177777 THEN 
064 023727 000572 177777 cmp DATAOS 4177777 
001003 $50063 


1 

1066 003072 CALL SETBUF 
106 

1 

1 

1 


SEQ 0038 


7 003072 004737 055410 J, JSR PC, SE TBUF 
068 003076 ELSE 
069 003076 000402 BR $50064 
070 003100 $50063: 
1071 003100 CALL ALTBUF 
1072 003100 004737 055454 JSR PC ,AL TBUF 
1073 003104 END iF 
1074 003104 $50064: 
1075 > 003104 ENDIF 
1076 003104 $50062: 
1077 003104 LET BFADRS := R3 ;DST.ADR 
1078 003104 010337 000540 MOV R3 BF ADRS 
IF DATAO6 EQ #0 THEN 
005737 000574 TST DATA06 
001003 BNE 


$50065 
CALL CLRBUF 

004737 055346 JSR PC, CLRBUF 
1084 003122 ELSE 
1085 003122 000411 BR $50066 
1086 003124 $50065: 
1087 003124 IF DATAO6 EQ #177777 THEN 
1088 003124 023727 000574 177777 CMP DATA06 4177777 

003152 001003 BNE $50067 


1090 003134 CALL SETBUF 

1091 003134 004737 055410 JSR PC, SE TBUF 
1092 003140 ELSE 

1093 003140 000402 BR $50070 
003142 $50067: 

003142 CALL AL TBUF 

004737 055454 JSR PC ,AL TBUF 
003146 ENDIF 

003146 $50070: 

003146 ENDIF 

003146 $50066: 

003146 IF DATAO2 EQ #0 THEN 

003146 005737 000564 TST DATAO2 
003152 001003 BNE $50071 
003154 LET BF.EXP := (R3) 

011337 000536 MOV (R3) .BF .EXP 
003160 ELSE 

003160 000402 BR $50072 
003162 $50071: 

003162 LET BF.EXP := (R1) 

003162 011137 000536 MOV (R1) .BF .EXP 
003166 ENDIF 

003166 $50072: 


SELFSE 
S 


SSSSARSSS 
8 
¥ 


+ 
+ DO THE CIS INSTRUCTION 


003166 INLINE <MOVC> 


AR PS a PS Ss 2s 4 a SS 2 Ss PP Ss HY DP I SH 
et et a 


ed ed ed ed ed td ed 
DBNAUSW-—O 
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1119 003166 076030 MVC 

ge 

7o 

112@ > CHECK CONDITION CODES AND GPR'S FOR CORRECT RESULTS 

1124 

1125 003170 LET CC := PSW 

1126 003170 013737 177776 000516 MOV PSW,CC 
1127 003176 LET CC := CC CLR.BY #177760 

1128 003176 042737 177760 000516 BIC #177760,CC 
1129 003204 IF CC NE CC.EXP THEN 

1130 003204 023737 000516 000520 CMP CC,CC.EXP 
1131 003212 001402 BEQ $56073 
1132 003214 CALL ERROR 

1133 003214 004737 056274 JSR PC ERROR 
1134 003220 ENDIF 

1135 0032 $50073: 

1136 003220 IF RO NE RO.EXP THEN 

1137 003220 020037 000522 CMP RO,RO.EXP 
1138 003224 001402 BEQ $50074 
1139 003226 CALL ERROR 

1140 003226 004737 056274 JSR PC,ERROR 
1141 003232 ENDIF 

1142 003232 $50074: 

1143 003232 IF R17 NE R1.EXP THEN 

1144 003232 020137 000524 CMP R1,R1.EXP 
1145 003236 001402 BEQ $50075 
1146 003240 CALL ERROR 

1147 003240 004737 056274 JSR PC ERROR 
1148 003244 ENDIF 

1149 003244 $50075: 

1150 003244 IF R2 NE R2.EXP THEN 

1151 003244 020237 000526 CMP R2,R2.EXP 
1152 003250 001402 BEQ $50076 
1153 003252 CALL ERROR 

1154 003252 004737 056274 JSR PC ERROR 
1155 003256 ENDIF 

1156 003256 $50076: 

1157 003256 IF R3 NE R3.EXP THEN 

1158 003256 020337 000530 CMP R3.R3.EXP 
1159 003262 001402 BEQ $56077 
1160 003264 CALL ERROR 

1161 003264 004737 056274 JSR PC ERROR 
116@ 003270 ENDIF 

1163 003270 $50077: 

1164 003270 , IF R4 NE R4.EXP THEN 

1165 003270 020437 °000532 CMP R4_R4.EXP 
1166 003274 001402 BEQ $50100 
1167 003276 CALL ERROR 

1168 003276 004737 056274 JSR PC ERROR 
1169 003302 ENDIF 

1170 003302 $50100: 

1171 003302 IF RS NE RS.EXP THEN 

1178 003302 020537 000534 CMP RS.RS.EXP 
1173 003306 001402 BEQ $56107 
1174 003310 CALL ERROR 
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003310 004737 056274 PC,ERROR 
4 ENDIF 
$50101: 


—_ 
a" 
“N 
wi 


i+ 
; CHECK ENTIRE DES” NATION BUFFER FOR CORRECT RESULTS 


LET RO := DATAO1 :SRC.ADR 
013700 DATAO1 ,RO 
LET R1 := DATAO3 :DST.ADR 
013701 DATAO3,R1 
LET ERRFLG := #0 
005037 ERRFLG 
IF DATAOO HIS DATAO2 THEN 
023737 DATAOO ,DATAO2 
$50102 


103417 
LET R3 := DATAO2 
013703 DATAO2,R3 
WHILE R3 NE #0 AND ERRFLG EQ 40 DO 
$50103: 


R3 
$50104 
000454 Head 


0104 
IFB BF.EXP NE (R1)+ THEN 
123721 000536 MPB BF .EXP, (R1)+ 
001402 $50105 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$50105: 
LET R3 := R3 - #1 
005303 R3 
ENDDO 
000764 $50103 
$50104: 
ELSE 


000441 $50106 
$50102: 
LET R3 := DATAOO 7SRC.LEN 
013703 DATAOO,.R3 
WHILE R3 NE #0 AND ERRFLG EQ 40 DO 
$50107: 


ek ed ed nd ed 2d nd et 8d SS a SS 2) 2 I SH YH SI 
BRLRARAVLSSELKARLATAS Bava 


SeRaEaTes 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


NMONMNMN Ng NNNoNnofry 
2 So 
WONAUSWN—O 


000454 


$50110 
IFB BF.EXP NE (R1)+ THEN 
123721 000536 BF .EXP, (R1)+ 
001402 $50111 
CALL ERROR 
004737 056274 PC ,ERROR 


ENDIF 
$50111: 
LET R3 := R3 - #1 
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1231 003426 005303 DEC R3 

1232 003430 ENDDO 

1233 003430 000764 BR $50107 

1234 003432 $50110: 

1235 003432 LET R3 := DATAO2 = DATAOO 

123% 003432 013703 000564 MOV DATAO2,R3 
1237 003436 163703 000560 SUB DATAOO,R3 
1238 003442 LET R1 := DATAO3 + DATAOO 

1239 003442 013701 000566 MOV DATAO3,R1 
1240 003446 063701 000560 ADD DATAOO,R1 
1241 003452 REPEAT : 

1242 003452 $50112: 

1243 003452 IFB (R1)+* NE DATAQ4 THEN 

1244 003452 122137 000570 CMPB —s-_ (R11) +, DATA04 
1245 003456 001402 BEQ $50113 

1246 003460 CALL ERROR 

1247 003460 004737 056274 JSR PC,,ERROR 
1248 003464 ENDIF 

1249 003464 $50113: 

1250 003464 LET R3 := R3 - #1 

1251 003464 005303 DEC R3 

1252 003466 UNTIL R3 EQ #40 OR ERRFLG NE 40 

1253 003466 005703 TST R3 

1254 003470 001403 BEQ $50114 

1255 003472 005737 000454 TST ERRFLG 

1256 003476 001765 BEQ $50112 

1257 003500 $50114: 

1258 003500 ENDIF 

1259 003500 $50106: 

1260 003500 LET ERRFLG := #0 

1261 003500 005037 000454 CLR ERRFLG 

1262 003504 IF DATAO2 LO #BUFLEN THEN 

1263 003504 023727 000564 000100 CMP DATAO2, #BUF LEN 
1264 003512 103040 BHIS $50115 

1265 003514 IF DATAO6 EQ #1 THEN 

1266 003514 023727 000574 000001 CMP DATACS, #1 
1267 003522 001004 BNE $50116 

1268 003524 LET BF.EXP := #125252 

1269 003524 012737 125252 000536 MOV #125252 ..BF .EXP 
1270 003532 ELSE 

1271 003532 000403 BR $50117 

1272 003534 $50116: 

1273 003534 LET BF.EXP := DATA06 

1274 003534 013737 000574 000536 MOV DATAO6 BF .EXP 
1275 003542 ENDIF 

1276 003542 $50117: 

1277 003542 LET RO := DATAO2 + DATAO3 

1278 003542 013700 000564 MOV DATAO2,RO 
1279 003546 063700 000566 ADD DATAO3.RO 
1280 003552 LET TEMPO := DATAQO3 + #BUFLEN 

1281 003552 013737 000566 000474 MOV DATAO3, TEMPO 
1282 003560 062737 000100 000474 ADD #BUF LEN, TEMPO 
1283 003566 REPEAT 

1284 003566 $50120: 

1285 003566 IFB (RO)+ NE BF.LEXP THEN 


1286 003566 122037 000536 CMPB (RO) +, BF .EXP 
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1287 
1288 
1289 
1290 
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1292 
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001402 
004737 056274 


000474 
000454 


000016 
000466 


000466 


002636 


012737 
004737 
012737 
004737 
012700 
012701 
012702 
012703 
012704 
012705 
005037 
076130 


061166 
055410 
061266 
055346 
125252 
125252 
125252 
125252 
125252 
125252 
000454 


000542 


000540 


000540 


CALL ERROR 
ENDIF 
UNTIL RO EQ TEMPO OR ERRFLG NE #0 


ENDIF 
LET TSTCA™ := TSTCAS + #16 
LET COUNT := COUNT - #1 
iF COUNT NE #0 THEN 
INLINE <JMP $5030> 
ENDIF 


76 
; DO ONF IN-LINE CASE = MOVCI 


LET BFADRS := MBUFF1 
CALL SETBUF 

LET BFADRS := #BUFF2 
CALL CLRBUF 

RO := #125252 
LET R1 #125252 
LET R2 #125252 
LET R3 #125252 
LET R4 #125252 
LET RS := #125252 
LET ERRFLG := #0 
INLINE <MOVCI> 
INLINE <.WORD 


TMOVC I> :SRC.DSCR.PIR 


$50121: 


$50122: 
$50115: 


$50123: 


SEQ 0042 


$50121 
PC,ERROR 


RO, TEMPO 
$50122 
ERRFLG 
$50120 


#16, TSTCAS 
COUNT 


COUNT 
$50123 
$5030 


#BUF F 1 ,BFADRS 
PC, SE TBUF 
#BUF F 2, BF ADRS 
PC, CLRBUF 
#125252,R0 
#125252,R1 
#125252,R2 
#125252 ,R3 
#125252 .R4 
#125252 .R5 
ERRFLG 
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FFE 


WHWAIWAIAIIWAIAWN AWN 
BALRRAABAL LE 


Vi 
Oo 


SER Ree ee SISSON ISS ESS ESERES 


SBE 


QVERRLSS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WAWWAWWAWW 


& 
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004460 
004464 
000040 
103003 
001002 
004737 


020027 
001402 


004737 


020127 
007402 


004737 


020227 
001402 


004737 


020327 
001402 


004737 


020427 
001402 


004737 


020527 
001402 


004737 


13:37 


056274 


125252 


056274 


125252 


056274 


125252 


056274 


125252 


056274 


125252 


056274 


125252 


056274 


INLINE <.WORD TMOVC1+4> 
INLINE <.WORD 40> 
IFCOND CS THEN 

IFCOND EQ THEN 

CALL ERROR 

ENDIF 
ENDIF 
IF RO NE #125252 THEN 


CALL ERROR 
ENDIF 
IF R1 NE #125252 THEN 


CALL ERROR 
ENDIF 
IF R2 NE #125252 THEN 


CALL ERROR 
ENDIF 
IF R3 NE 4125252 THEN 


CALL ERROR 
ENDIF 
IF R& NE #125252 THEN 


CALL ERROR 
ENDIF 
IF RS NE #125252 THEN 


CALL ERROR 
ENDIF 


:DST.DSCR.PTR 


sFILL CHARACTER — 


$50125: 
$50124: 


$50126: 


$50127: 


$50130: 


$50131: 


$50132: 


TMOVCI 
TMOVC1 +4 
40 
$50124 
$50125 
PC,ERROR 


RO, #125252 
$50126 


PC,ERROR 


R1,4125252 
$50127 


PC ERROR 
R2,4125252 
$50130 

PC ERROR 
R3,4125252 
$50131 


PC,ERROR 


R4 #125252 
$50132 


PC.,ERROR 


RS #125252 
$56133 


PC,ERROR 
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023727 
001402 


004737 


023727 
001402 


004737 


012700 


012737 
062737 


004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 


ad ad nd anh ad and a a ae ce ad eed eee a ed 
at and nd 
SSSRNSERERSORERK 


056274 


061270 


056274 


061272 
061266 
0000 


76 
056274 


000474 
00454 


004470 
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177777 


020040 


000474 
000474 


IF BUFF2 NE #177777 THEN 


CALL ERROR 
ENDIF 
IF BUFF2+2 NE #20040 THEN 


CALL ERROR 
ENDIF 
LET RO := ABUFF2+4 
LET TEMPO := #BUFF2 + #BUFLEN-2 


REPEAT 
IF (RO)+ NE #0 THEN 


CALL ERROR 
ENDIF 
UNTIL RO EQ TEMPO OR ERRFLG NE #) 


INLINE <JMP XMOVRC> 


se 
; TABLE OF TEST CASES FOR MOVC 


TMOVC: .WORD 


$50133: 


$50134: 


$50135: 


$50136: 


$50137: 


$50140: 


:4 OF TEST CASES FOR MOVC 


sFILL CHAR, 
7 SRC.BUFF .STATE 
DST .BUFF .STATE 


TEST CASE NUMBER 2 


SEQ 0044 


BUF F 2 ,4177777 
$50134 
PC,ERROR 

BUF F 2+2 ,420040 
$50135 
PC,ERROR 


MBUF F 2+4 ,RO 


MBUF F 2, TEMPO 
#BUF LEN-2 , TEMPO 


(RO) + 
$50137 


PC,,ERROR 


RO, TEMPO 
$50140 
ERRFLG 
$50136 


XMOVRC 
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1 
1 
1 
1 


0 
2 
4 
6 
0 
2 
4 


BUF LEN+20 
BUFF 1 

100 
BUF F 2 


\ 
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12-MAR-80 13:37 SEQ 0046 
1511 004326 000002 -WORD 2 
1512 0043 000000 -WORD 0O 
1aiz 004332 000001 WORD 1 
1515 004334 000015 -WORD 15 ;TEST CASE NUMBER 10 
1516 004336 061166 WORD BUFF 1 
1517 004340 -WORD O 
1518 004342 961266 ~WORD BUFFZ 
1519 004344 000016 -WORD 16 
1520 004346 000001 «WORD 1 
125} 004350 -WORD 0O 
1523 004352 000077 ~WORD 77 3; TEST CASE NUMBER 11 
15824 004354 061166 .WORD BUFF1 
1525 004356 21 . WORD 
1526 004360 061266 -WORD BUFF2 
1527 004362 00 . WORD 
1528 004364 177777 WORD -1 
136? 004 366 1 WORD 1 
1531 004370 . WORD 0 ; TEST CASE NUMBER 12 
1532 372 061166 -WORD BUFF1 
1533 374 50 . WORD 
1534 004376 061266 -WORD BUFF2 
1535 400 3 . WORD 
1536 004402 -WORD 1 
: tA 004404 177777 WORD -1 
1539 004406 000014 -WORD 14 : TEST CASE NUMBER 13 
1540 004410 061166 -WORD BUFF1 
1541 004412 2 «WORD 42 
1542 004414 061266 -WORD BUFF2 
1543 004416 30 . WORD 
1544 004420 -WORD 0 
: et 004422 177777 -WORD -1 
1547 004424 000000 -WORD 0O Zs TEST CASE NUMBER 14 
1548 004426 061166 -WORD BUFF1 
1549 430 000053 . WORD 
1550 004432 061266 -WORD BUFF2 
1551 434 000012 . WORD 
1552 436 000001 . WORD 
1237 004440 000000 -WORD 0O 
1555 004442 000027 -WORD 27 Zs TEST CASE NUMBER 15 
1556 004444 061166 WORD BUFF1 
1557 004446 0 -WORD 6 
1558 004450 061266 WORD BUFF2 
1559 004452 0000 WORD 
1560 004454 177777 WORD -1 
1561 004456 WORD 1 
1562 
1563 
1564 004460 TMOVCI: .WORD 2 sTEST CASE FOR IN-LINE 
1565 004462 061166 -WORD BUFF 1 
1566 004464 000004 -WORD 4 
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1567 004466 061266 -WORD BUFF 2 
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SEQ 0048 
1568 -SBTTL MOVRC 
1569 SL AAR E REE EERE ERE REE EEE ERE EERE EE 
1570 ; 
ial ; MOVRC TEST 
1573 PPIT iit t iti titi it ii titi titiiiiiiiiiiiiitititiiiiit titi titi tits 
1574 
1575 004470 INLINE <XMOVRC:> 
1576 004470 XMOVRC : 
1577 004470 INLINE <SCOPE> 
1578 004470 000004 SCOPE 
1579 004472 LET $TIMES := #20 ; ITERATION COUNT 
1580 004472 012737 000020 000404 MOV #20, $TIMES 
1581 004500 LET COUNT := TMOVRC ;GET TEST COUNT 
1582 004500 013737 006000 000466 MOV TMOVRC , COUNT 
1583 004506 LET TSTCAS := ATMOVRC+2 sPOINT TO FIRST TEST CASE 
1584 004506 012737 006002 000542 MOV #TMOVRC +2, TSTCAS 
1585 ;REPEAT 
1586 004514 INLINE <$5031:> 
1587 004514 $5031: 
1588 
1589 3+ 
1590 ; GET TEST DATA FROM TABLE 
1591 $= 
1592 
1593 004514 LET RO := TSTCAS 
1594 004514 013700 000542 MOV TSTCAS,RO 
1595 004520 LET DATAOO := (RO)+ 7SRC.LEN 
1596 004520 012037 000560 MOV (RO) +, DATAOO 
1597 004524 ‘ LET DATAO1 := (RO)+ ;SRC.ADR 
1598 004524 012037 000562 MOV (RO)+,DATAO1 
1599 004530 LET DATAO2 := (RO)+ ;DST.LEN 
1600 004530 012037 000564 MOV (RO) +, DATAO2 
1601 004534 LET DATAOS := (RO)+ zDST.ADR 
1602 004534 012037 000566 MOV (RO) +,DATAO3 
1603 004540 LET DATAO4 := (RO)+ sFILL CHAR. ° 
1604 004540 012037 000570 MOV (RO) + ,DATAO4 
1605 004544 LET DATAOS := (RO)+ ;SRC.BUFF STATE 
1606 004544 012037 000572 MOV (RO) +, DATAOS 
1607 004550 LET DATAQ6 := (RO) ;DST.BUFF .STATE 
io 004550 011037 000574 MOV (RO) ,.DATAO6 
1610 i+ 
1611 ; SET UP GPR'S, EXPECTED GPR'S AND 
1ol¢ ; CONDITION CODES, AND BUFFERS. 
1614 
1615 004554 LET RO := DATAOO 
1616 004554 013700 000560 MOV DATAOO,RO 
1617 004560 LET R1 := DATAO1 
1618 004560 013701 000562 MOV DATAO1,R1 
1619 004564 LET R2 := DATAO2 
1620 004564 013702 000564 MOV DATAQ2,R2 
1621 004570 LE? R3 := DATAO3 
1622 004570 013703 000566 MOV DATAQ3,R3 
1623 004574 LET R4& := DATAO4 
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12=MAR=80 13:37 SEQ 0049 
013704 000570 DATA04 ,R4 
IF #1 SETIN COUNT THEN 

032737 000001 000466 #1,COUNT 
001403 $50141 

LET RS := #177777 
012705 177777 cLSe #177777,R5S 
000401 $50142 

$50141: 
LET RS : 


005005 R5 


ENDIF 
$50142: 
INLINE <CMP RO,R2> 
020002 RO,R2 
LET CC.EXP := PSW 
013737 177776 000520 PSW,CC.EXP 
LET CC.EXP := CC.EXP CLR.BY #177760 
042737 177760 000520 #177760,CC.EXP 
IF #CBIT SETIN CC.EXP OR AZBIT SETIN CC.EXP THEN 
032737 000001 000520 #CBIT,CC.EXP 
001004 $50143 


BN 
032737 000.20 #ZBIT,CC.EXP 
001403 $50144 
$50143: 
LET RO.EXP : 


005037 RO.EXP 
ELSE 
000404 $50145 


$50144: 
LET RO.EXP : 
010037 RO,RO.EXP 
160237 R2,RO.EXP 


ENDIF 
$50145: 

LET R1.EXP := #0 

005037 R1.EXP 
LET R2.EXP := #0 

005037 R2.EXP 
LET R3.EXP := #0 

005037 R3.EXP 
LET R4.EXP := R4 

010437 R4.R4.EXP 
LET RS.EXP := RS 

010537 RS.RS.EXP 
LET BFADRS := DATAO1 

013737 DATAO1 ,BF ADRS 

ease IF DATAOS EQ #0 THEN “ies 

A 
001003 BNE $50146 
CALL CLRBUF 

004737 PC, CLRBUF 
ELSE 

000411 BR $50147 


$50146: 
IF DATAOS EQ #177777 THEN 


REE 
SESS 
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VNN 
VYPNAD 


N 
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RAR 


023727 
001003 
004737 
000402 


004737 


013737 
005737 
001003 
004737 
000411 
023727 
001003 
004737 
000402 


004737 


017737 


076031 


013737 
042737 


13:37 
000572 177777 
055410 


055454 


000574 177777 


055410 


055454 


173532 


177776 000516 
177760 000516 
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CALL SETBUF 
ELSE 


CALL ALTBUF 
ENDIF 
ENDIF 
LET BFADRS := DATAQS3 
IF DATAO6 EQ #0 THEN 


CALL CLRBUF 
ELSE 


IF DATAQ6 EQ #177777 THEN 


CALL SETBUF 
ELSE 


CALL Ai TBUF 
ENDIF 
ENDIF 
LET BF.EXP := @DATAO3 


i+ 
; DO THE CIS INSTRUCTION 


INLINE <MOVRC> 


$50150: 


$50151: 
$50147: 


$50152: 


$50154: 


$50155: 
$50153: 


i+ 
: CHECK CONDITION CODES AND GPR*S FOR CORRECT RESULTS 


LET CC := PSwW 
LET CC := CC CLR.BY #177760 
IF CC NE CC.EXP THEN 


SEQ 0050 


DATAOS ,4177777 
$50150 


PC, SE TBUF 
$50151 


PC ,AL TBUF 


DATAO3 ,BF ADRS 


DATA06 
$50152 


PC, CLRBUF 
$50153 


DATAQ6 4177777 
$50154 


PC, SE TBUF 
$50155 


PC ,AL TBUF 


@DATAOS BF .EXP 


PSwW,CC 
#177760,CC 
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Ww 

= 
ee re 
SRRRROOS 


023737 
001402 


004737 


020037 
001402 


004737 


020137 
001402 


004737 
020237 
001402 
004737 


020337 
001402 


004737 


020437 
001402 


004737 


020537 
001402 


004737 


. 
. 


056274 


000522 


056274 


000524 


056274 


000526 


056274 


000530 


056274 


000532 


056274 


000534 


056274 


CALL 
ENDIF 
IF RO NE 


CALL 
ENDIF 
IF R1 NE 


CALL 
ENDIF 
IF R2 NE 


CALL 
ENDIF 
IF R3 NE 


CALL 
ENDIF 
IF R4& NE 


CALL 
ENDIF 
IF R5 NE 


CALL 
ENDIF 
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ERROR 


RO.EXP THEN 


ERROR 


R1.EXP THEN 


ERROR 


R2.EXP THEN 


ERROR 


R3.EXP THEN 


ERROR 


R4.EXP THEN 


ERROR 


R5.EXP THEN 


ERROR 


LET ERRFLG := #0 


LET R1 : 


DATAO3 


$50156: 
$50157: 
$50160: 
$50161: 
$50162: 
$50163: 


$50164: 


2 
; CHECK ENTIRE DESTINATION BUFFER FOR CORRECT RESULTS 


CC,CC.EXP 
$50156 


PC ,ERROR 


RO,RO.EXP 
$50157 


PC,ERROR 
R1,R1.EXP 
$50160 

PC ,ERROR 
R2,R2.EXP 
$50161 

PC,ERROR 


R3,R3.EXP 
$50162 


PC ,ERROR 


R4,R4.EXP 
$50163 


PC,,ERROR 


RS5S,R5.EXP 
$50164 


PC ,ERROR 


ERRFLG 


SEQ 0051 
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013701 
. IF DATAQO HIS DATAO2 THEN DATA03,R1 
703424 sees DATAOO,DATAO2 
$50165 


ae LET R3 := DATAO2 
013703 is 
LET RO := DATAO1 + DATAOO = DATAO2 DATAO2 RS 
DATAO1.RO 


DATAOO,RO 
DATAO2 ,RO 


SEQ 0052 


ae 


WHILE R3 NE #0 AND ERRFLG EQ 40 DO 
$50166: 


R3 
$50167 
ERRFLG 


$50167 
122021 IFB <RO)+ NE (R1)+ THEN 
MPB —s- (RO) +, (R1) + 
001402 a taal $50170 
004737 056274 PC ERROR 


ENDIF 
LET R3 := R3- #1 satadiceae 
005303 y R3 
ENDDO 
000765 $50166 
$50167: 
ELSE 


000455 $50171 
$50165: 
REPEAT 


IFB (R1)+ NE DATAO4 THEN wien 
122137 000570 (R1)+,DATA04 
001402 hoa $50173 
004737 056274 PC,ERROR 


ENDIF 
LET TEMPO := DATAO3 + DATAO2 - DATAOO pena 
013737 000566 000474 ‘i DATAO3, TEMPO 
063737 000564 000474 DATAO2. TEMPO 
163737 000560 000474 id eS DATAOO, TEMPO 
020137 7%, UNTIL E EMPO OR ERRFLG NE 40 
001403 


000454 


ttt tot itctet Rp Re a 


0 Co 09 Co 09 C0 00 Co Co 
a8 at os oe 
WONAUSWN—O 


8S 


1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SBS 
wn 


$50172 
$50174: 
= DATAO1 


000562 DATAO1 ,RO 

:= DATAO3 + DATAO2 = DATAOO 
013701 000566 DATAO3,R1 
063701 000564 DATAQ2,R1 
163701 000560 DATAOQ,R1 
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SEQ 0053 
1848 005344 LET TEMPO := DATAO3 + DATAOZ 
1849 005344 013737 000566 000474 MOV DATAO3, TEMPO 
1850 005352 063737 000564 000474 ADD DATAO2, TEMPO 
1851 005360 WHILE R1 NE TEMPO AND ERRFLG NE #0 DO 
1852 005360 $50175: 
1853 005360 020137 000474 : CMP R1, TEMPO 
1854 005364 001410 BEQ $50176 
1855 005366 005737 000454 TST ERRFLG 
1856 005372 001405 BEQ $50176 
1857 005374 IFB (RO)+ NE (21)+ THEN 
1858 005374 122021 CMPB —s- (RO) +, (R1)+ 
1859 005376 001402 BEQ $50177 
1860 005400 CALL ERROR 
1861 005400 004737 056274 JSR PC,ERROR 
1862 005404 ENDIF 
1863 005404 $50177: 
1864 005404 ENDDO 
1865 005404 000765 BR $50175 
1866 005406 $50176: 
1867 005406 ENDIF 
1868 005406 $50171: 
1869 005406 IF DATAO2 LO #BUFLEN THEN 
1870 005406 023727 000564 000100 CMP DATAO2, ABUF LEN 
1871 005414 103025 BHIS  $50200 
1872 005416 LET RO := DATAO3 + DATAC2 
1873 005416 013700 000566 MOV DATAO3,RO 
1874 005422 063700 000564 ADD DATAO2.RO 
1875 005426 REPEAT 
1876 005426 $50201: 
1877 005426 IFB (RO)+ NE BF.EXP THEN 
1878 005426 122037 000536 CMPB ~—s- (RO) +, BF .EXP 
1879 005432 001402 BEQ $50202 
1880 005434 CALL ERROR 
1881 005434 004737 056274 JSR PC,ERROR 
1882 005440 ENDIF 
1883 005440 $50202: 
1884 005440 LET TEMPO := DATAO3 + #BUFLEN 
1885 005440 013737 000566 000474 MOV DATAO3, TEMPO 
1886 005446 062737 000100 000474 ADD #BUF LEN, TEMPO 
1887 005454 UNTIL RO EQ TEMPO OR ERRFLG NE #0 
1888 005454 020037 000474 CMP RO, TEMPO 
1889 005460 001403 BEQ $50203 
1890 005462 005737 000454 TST ERRFLG 
1891 005466 001757 BEQ $50201 
1892 005470 $50203: 
1893 005470 ENDIF 
1894 005470 $50200: 
1895 005470 LET TSTCAS := TSTCAS + #16 
1896 005470 062737 000016 000542 ADD #16, TSTCAS 
1897 005476 LET COUNT := COUNT - #1 
1898 005476 005337 000466 : DEC COUNT 
1899 ;UNTIL COUNT EQ #0 : 
1900 005502 IF COUNT NE #0 THEN ; 
1901 005502 005737 000466 iST COUNT 
1902 005506 001402 BEQ $50204 
1903 005510 INLINE <JMP $5031> 
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CJKDGA.P11  12=MAR=80 13 SEQ 0054 
1904 005510 000137 004514 UMP $5031 
1905 005514 ENDIF 
1906 005514 $50204: 

1907 

1908 

1909 i+ 

1910 * DO ONE INLINE CASE - MOYRCI 

1911 = 

1912 

1913 005514 LET BFADRS := BUFF ; 

1914 005514 012737 061166 000540 MOV A#BUF F 1,BF ADRS 
1915 005522 CALL SETBUF ! 

1916 005522 004737 055410 JSR PC, SETBUF 
1917 005526 LET BFADRS := #BUFF2 

1918 005526 012737 061266 000540 MOV #BUF F 2,BF ADRS 
1919 005534 CALL CLRBUF 

1920 005534 004737 055346 JSR PC, CLRBUF 
1921 005540 LET RO := #125252 

1922 005540 012700 125252 MOV #125252,R0 
1923 005544 LET R1 = #125252 

1924 005544 012701 125252 MOV #125252,R1 
1925 005550 LET R2 := #125252 

1926 005550 012702 125252 MOV #125252,R2 
1927 005554 LET R3 := #125252 

1928 005554 012703 125252 MOV #125252,R3 
1929 005560 LET RG := #125252 

1930 005560 012704 125252 MOV #125252,R4 
1931 005564 LET RS := #125252 

1932 005564 012705 125252 MOV #125252.R5 
1933 005570 LET ERRFLG := #0 

1934 005570 005037 000454 CLR ERRFLG 
1935 005574 INLINE <MOVRCI> 

1936 005574 076131 MOVRCI 

1937 005576 INLINE <.WORD TMvRCI> iSRC.DSCR.PTR 

1938 005576 006072 .WORD  TMVRCI 
1939 005600 INLINE <.WORD TMVRCI+4> :DST.DSCR.PTR 

1940 005600 006076 .WORD  TMVRCI+4 
1941 005602 INLINE <.WORD 40> sFILL CHARACTER 

1942 005602 000040 .WORD 40 

1943 005604 IFCOND CS THEN 

1944 005604 103003 BCC $50205 
1945 005606 IFCOND EQ THEN 

1946 005606 001002 BNE $50206 
1947 005610 CALL ERROR 

1948 005610 004737 056274 JSR PC ERROR 
1949 005614 ENDIF 

1950 005614 $50206: 

1951 005614 ENDIF 

1952 005614 $50205: 

1953 005614 IF RO NE #125252 THEN 

1954 005614 020027 125252 CMP RO, #125252 
1955 005620 001402 BEQ $56207 
1956 005622 CALL ERROR 

1957 005622 004737 056274 JSR PC ,ERROR 
1958 005626 ENDIF 


1959 005626 $50207: 


CJKDGA, 


A 
-MAR-80 
020127 
001402 
004737 


020227 
001402 


004737 
020327 
001402 
004737 


020427 
001402 


004737 


020527 
001402 


004737 


023727 
001402 


004737 


023727 
001402 


004737 


005037 
012700 


KEF 11-8 CIS DIAGNOS 
CJKDGA.P11 12 


13: 


125252 


056274 


125252 


056274 


125252 


056274 


125252 


056274 


125252 


056274 


061266 


056274 


061270 


056274 


000454 
061272 


020040 


177777 


D 5 
C MACY11 30A(1052) 14-MAR=80 08:04 PAGE 39 
MOVRC 


IF R1 NE #125252 THEN 


CALL ERROR 
ENDIF 
IF R2 NE #125252 THEN 


CALL ERROR 
ENDIF 
IF R3 NE #125252 THEN 


CALL ERROR 
ENDIF 
IF R& NE #125252 THEN 


CALL ERROR 
ENDIF 
IF R5 NE #125252 THEN 


CALL ERROR 
ENDIF 
IF BUFF2 NE #20040 THEN 


CALL ERROR 
ENDIF 
IF BUFF 2+*2 NE #177777 THEN 


CALL ERROR 
ENDIF 
LET ERRFLG := 40 
LET RO := #BUFF2+4 
REPEAT 
IF (RO)+ NE #0 THEN 


$50210: 


$50211: 


$50212: 


$50213: 


$50214: 


$50215: 


$50216: 


$50217: 


R1,#125252 
$50210 


PC,ERROR 


R2,4125252 
$50211 

PC ERROR 
R3,4125252 
$50212 
PC,ERROR 
R4 #125252 
$50213 


PC,,ERROR 


R5 #125252 
$50214 


PC ERROR 


SEa 0055 


BUF F 2.420040 


$50215 
PC ,ERROR 


BUF F2+2,4177777 
$50216 


PC,,ERROR 


ERRFLG 
MBUF F 2+4,RO 





a 
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CJKDGA. 


KEF11=8 CIS DIAGNOSTIC MACY11 ee 
Pl) 12-MAR-80 


005720 


13:37 


056274 


061364 
000454 


006102 


CALL ERROR 
ENDIF 


E 5 
14=MAR=80 08:04 PAGE 40 


$50220: 


UNTIL RO EQ #BUFF2+BUFLEN=2 OR ERRFLG NE 40 


INLINE <JMP XMOVTC> 


:+ 
TABLE OF TEST CASES FOR MOVRC 


TMOVRC: .WORD 


TMVRC!: WORD 
. WORD 


B 
$50221: 


sM0F TEST CASES FOR MOVRC 


7SRC.LEN 
SRC.ADR 
:DST.LEN 
ge 

;FILL CHAR. 
SRC.BUFF .STATE 
DST .BUFF .STATE 


TEST CASE NUMBER 2 


: TEST CASE NUMBER 3 


2 TEST CASE NUMBER 4 


TEST CASE FOR IN-LINE 


(RO) + 
$50220 
PC,ERROR 


a 
ERRFLG 
$50217 


XMOVTC 





so 
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2072 006100 061266 -WORD BUFF 2 




















OONAM Ew =S38 


Rt et es ss SS ts Ls ts es 


me ek ke a “gd ot a 


NOM MNNoNoNMNgNoNMoNo Nonny 
ror 
Nio— 









CJKDGA, 
CJKDGA. 


KEF11-B CIS 
P11 12 


000004 
012737 
013737 
012737 


013700 
012037 
012037 
012037 
012037 
012037 
012037 
011037 


013700 
013701 
013702 
013703 


DIAGNOS 
80 


TI 
13:37 


000020 000404 
007436 000466 
007440 000542 


000560 
000562 
000564 
000566 


G 5 
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-SBTTL MOVTC 


: MOVTC TEST 


SFR AAAAAR AAR ER RARER REAR A AERA EO REE REE RARER EE 


WEeADAARAAAAAARASLASAARARARRAARASALEALA SARS R ASA R RASS SARS SLES ASSES SE | 


INLINE <XMOVTC:> 
INLINE <SCOPE> 

LET $TIMES := #20 

LET COUNT := TMOVTC 

LET TSTCAS := #TMOVTC+2 


; ITERATION COUNT 
GET TEST COUNT 
;POINT TO FIRST TEST CASE 


;REPEAT 
INLINE <$5032:> 


-+ 
; GET TEST DATA FROM TABLE 


LET RO := TSTCAS 


LET DATAOO := (RO)+ 7SRC.LEN 
LET DATAQT := (RO)+ :SRC.ADR 
LET DATAO2 := (RO)+ ;DST.LEN 
LET DATAO3 := (RO)+ ;DST.ADR 
LET DATAO4 := (RO)+ sFILL CHAR. 


LET DATAOS := (RO)+ 
LET DATAO6 := (RO) 


; SRC .BUFF .STATE 
DST .BUFF .STATE 


+ 
; SET UP GPR'S, 
; EXPECTED GPR'S AND CONDITION CODES, 
; AND BUFFERS. 


LET RO := DATAOO 
LET R1 := DATAO1 
LET R2 DATAO2 
LET R3 := DATAO3 
LET R& := DATAOS 





XMOVTC: 
SCOPE 
































#20,$TIMES 
TMOVTC , COUNT 
#TMOVTC+2,TSTCAS 


TSTCAS ,RO 
(RO) +,DATAOO 
(RO) +, DATAOT 
(RO) + ,DATAO2 
(RO) + ,DATAOS 
(RO) + ,DATA04 
(RO) +, DATAOS 
(RO) ,DATA06 


DATAOO ,RO 
DATAQ1,R1 
DATAQ2 ,R2 
DATAO3,R3 





oe 
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CJKDGA.P11 


2143 


12=MAR-80 


013704 
012705 
0620002 
013737 
042737 
032737 
001004 
032737 
001403 
005037 
000404 


010037 
160237 


005037 
005037 
005037 
010437 
010537 
013737 


005737 
001003 


004737 
000411 


023727 
001003 
004737 


000402 


004737 


13:37 
000570 
061366 


177776 
177760 
000001 
000004 


000522 
000522 
000522 


000524 
000526 
000530 
000532 
000534 
000562 
000572 


055346 


000572 


055410 


055454 


MACY11 


000520 
000520 
000520 
000520 


000540 


177777 


H 5 
30A(1052) 14=-MAR=-80 08:04 PAGE 43 
MOVTC 


LET RS := #TRANS 

INLINE <CMP RO,R2> 

LET CC.EXP := PSwW 

LET CC.EXP := CC.EXP CLR.BY #177760 

IF MCBIT SETIN CC.EXP OR #ZBiT SETIN CC.EXP THEN 


LET RO.EXP := 
ELSE 


LET RO.EXP := RO = R2 


ENDIF 

LET R1.EXP := 
LET R2.EXP := 
LET R3.EXP := 
LET R4&.EXP := 
LET R5S.EXP R5 

LET BFADRS := DATAO1 
IF DATAOS EQ #0 THEN 


#0 
#0 
#0 
R4 


CALL CLRBUF 
ELSE 


IF DATAOS EQ #177777 THEN 


CALL SETBUF 
ELSE 


C4LL ALTBUF 
END It 


$50222: 


BR 
$50223: 


$50224: 


BR 
$50225: 


BR 
$50227: 


JSR 


SEQ 0059 
DATA04 ,R4 
#TRANS ,R5 
RO,R2 
PSW,CC.EXP 
#177760,CC.EXP 
#CBIT,CC.EXP 
$50222 
#7BIT,CC.EXP 
$50228 
RO.EXP 
$50224 


RO,RO.EXP 
R2,RO.EXP 


R1.EXP 
R2.EXP 
R3.EXP 
R4,R4.EXP 
RS,R5.EXP 
DATAQ1 .BF ADRS 


DATAOS 
$50225 


PC, CLRBUF 
$50226 


DATAOS ,4177777 
$50227 


PC, SE TBUF 
$50230 


PC ,AL TBUF 


ae 
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2185 $50230: 
186 ENDIF 
2187 $50226: 
LET BFADRS := DATAO3 
013737 000566 000540 DATAO3 ,BF ADRS 


IF DATAQ6é EQ #0 THEN 
005737 000574 DATA06 
001003 $50231 
CALL CLRBUF 
004737 055346 PC, CLRBUF 


000411 $50232 


$50231: 
IF DATAO6 EQ #177777 THEN 
023727 000574 177777 DATAQ6,4177777 
001003 ; $50233 


CALL SETBUF 
004737 055410 7 PC, SE TBUF 
000402 $50234 


$50233: 
CALL AL TBUF 
004737 055454 PC ,AL TBUF 


ENDIF 
$50234: 
ENDIF 
$50232: 
LET BF.EXP := a@DATAQ3 
017737 172134 000536 @DATAO3 ,BF .EXP 


a\@ 


: SET UP THE TRANSLATION TABLE 


DECR TEMPO FROM #200 TO 41 BY 41 
012737 #200, TEMPO 
000402 $50235 
$50236: 


005337 TEMPO 
$50235: 

023727 000001 TEMPO, #1 

002402 $50237 

LET (R5)+ := #0 


005025 (R5)+ 
ENDDEC 
000770 BR $50236 


$50237: 
LET RS := #TRANS 
012705 #TRANS RS 
LET (R5) :B= #63 
112715 #63, (R5) 
LET 252(R5) :B= #314 
112765 000252 #314,252(R5) 
LET 377(R5) :B= #125 
112765 000377 #125,377(R5) 





om 


CJKDGA, KEF 11-8 CIS DIAGNOS 
12-MAR-8 


CJKDGA.P11 


076032 


013737 
042737 


023737 
001402 


004737 


020037 
001402 


004737 
020137 
001402 
004737 


020237 
001402 


004737 


020337 
001402 


004737 


020437 
001402 


004737 


TI 
13:37 


177776 000516 
177760 000516 
000516 000520 


056274 


000522 


056274 


000524 


056274 


000526 


056274 


000530 


056274 


000532 


056274 


J. 35 
C MACY11 30A(1052) 14=MAR=80 08:04 PAGE 45 
MOVTC 


+ 
; DO THE CIS INSTRUCTION 


INLINE <MOVTC> 


s° 
; CHECK CONDITION CODES AND GPR*S FOR CORRECT RESULTS 


LET CC := PSwW 
LET CC := CC CLR.BY #177760 
IF CC NE CC.EXP THEN 


CALL ERROR 
ENDIF 
IF RO NE RO.EXP THEN 


CALL ERROR 
ENDIF 
IF R1 NE R1.EXP THEN 


CALL ERROR 
ENDIF 
IF R2 NE R2.EXP THEN 


CALL ERROR 
ENDIF 
IF R3 NE R3.EXP THEN 


CALL ERROR 
ENDIF 
IF R& NE R4.EXP THEN 


CALL ERROR 
ENDIF 


$50240: 


$50241: 


$50242: 


$50243: 


$50244: 


PSW,CC 

#177760,CC 

CC,CC.EXP 
4 


$50240 


PC,ERROR 


RO,RO.EXP 
$50241 


PC,,ERROR 
R1,R1.EXP 
$50242 
PC,,ERROR 


R2,R2.EXP 
$50243 


PC ,ERROR 


R3,R3.EXP 
$50244 


PC ,ERROR 


R4,R4.EXP 
$50245 


PC ,ERROR 





K 5 
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$50245: 
IF R5 NE RS.EXP THEN 
020537 000534 R5,R5.EXP 
001402 


$50246 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$50246: 


3+ 
; CHECK ENTIRE DESTINATION BUFFER FOR CORRECT RESULTS 


LET RO := DATAOS 

013700 000566 DATAO3,RO 
LET R2 :B= @DATAO1 

117702 171714 @DATA01 ,R2 
LET R2 := R2 CLR.BY #177400 

042702 177400 #177400 ,R2 
LET R1 :B= TRANS(R2) 

116201 061366 TRANS (R2) ,R1 
LET ERRFLG := #0 

005037 000454 ERRFLG 
IF DATAOO HIS DATAO2 THEN 

023737 000560 DATAOO ,DATAO2 

$50247 


103416 
LET R3 := DATAO2 


013703 000564 DATA02 ,R3 
WHILE R3 NE #0 AND ERRFLG EQ #0 DO 
$50250: 


$50251 
(RO)+,R1 


$50252 
CALL ERROR 
056274 PC ERROR 


ENDIF 
$50252: 
LET R3 := R3 - #1 


ENDDO 


IFB (RO)+ NE R1 THEN 


R3 


$50250 
$50251: 
ELSE 
$50253 
$50247: 
LET R3 := DATAOO 


DATAOO,,R3 
WHILE R3 NE #0 AND ERRFLG EQ #0 DO 


$50254: _ 


R3 
$50255 
ERRFLG 





om 
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001006 


122001 
001402 


004737 


005303 
000765 


013700 
063700 


013703 
163703 


122037 
001402 


023727 
103027 


013737 
062737 
005337 
013700 
063700 


122037 
001402 


004737 


C 


056274 


000566 
000560 
000564 
000560 


000570 


056274 


056274 


L_ 5 
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IFB (RO)+ NE R1 THEN 


CALL ERROR 


ENDIF 
LET R3 := R3 = #1 
ENDDO 


LET RO := DATAO3 + DATAOO 


LET R3 := DATAO2 = DATAOO 


REPEAT 
IFB (RO)+ NE DATAO4 THEN 


CALL ERROR 
ENDIF 
LET R3 := R3 - #1 
UNTIL R3 EQ #0 OR ERR#LG NE 40 


ENDIF 
IF DATAO2 LO #BUFLEN THEN 


LET TEMPO := DATAO3 + #BUFLEN - #1 


LET RO := DATAO3 + DATAO2 


REPEAT 
IFB (RO)+ NE BF.EXP THEN 


CALL ERROR 


$50256: 


$50255: 


$50257: 


$50260: 


$50261: 
$50253: 


$50263: 


$50255 


(RO)+,R1 
$50256 


PC,ERROR 


R3 

$50254 
DATAO3,RO 
DATAOO,RO 


DATAO2,R3 
DATAOO,R3 


(RO) +, DATA04 
$50260 


PC ,ERROR 


$50257 


DATAOQ2 , #BUF LEN 
$50262 


DATAO3. TEMPO 
#BUF LEN, TEMPO 
TEMPO 


DATAO3.RO 
DATAO2 ,RO 


(RO) + BF .EXP 
$50264 


PC ERROR 





CJKDGA 
JK 


C 


DGA.P 


-_KEF11-8 
P11 


CIS DIA 
~80 


12=MAR 


012737 
004737 
012737 
004737 
012700 
012701 
012702 
012703 
012704 
012705 
012737 
076132 
007530 
007534 


13:37 


000016 000542 
000466 


000466 


006126 


061166 000540 
055346 
061266 000540 
055410 
125252 
125252 
125252 
125252 
125252 
125252 
070707 061366 


mM 5 
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ENDIF 
UNTIL RO EQ TEMPO OR ERRFLG NE #0 


ENDIF 
LET TSTCAS := TSTCAS + #16 
LET COUNT := COUNT = 41 

iP NCOUNT NE #0. THEN 


INLINE <JMP $5032> 


ENDIF 


i+ 
: DO ONE INLINE CASE - MOVTCI 


LET BFADRS := #BUFF1 
CALL CLRBUF 

LET BFADRS := ABUFF2 
CALL SETBUF 

LET RO := #125252 

LET R1 := #125252 

LET R2 := #125252 

LET R3 := #125252 

LET R4 := #125252 

LET R5 := #125252 

LET TRANS := #70707 
INLINE <MOVTCI> 

INLINE <.WORD TMVTCI> 
INLINE <.WORD TMVTC]+4> 


$50264: 


$50265: 
$50262: 


$50266: 


$50263 


#16, TSTCAS 
COUNT 


COUNT 
$50266 
$5032 


#BUF F 1 BF ADRS 
PC, CLRBUF 
#BUF F 2 ,BF ADRS 
PC, SE TBUF 
#125252 ,.RO 
#125252,R1 
#125252 ,R2 
#125252 ,R3 
#125252 .R4 
#125252 .,.R5 
#70707, TRANS 


TMVTCI 
TMVTC1 +4 





on 
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INLINE <.WORD 40> 
INLINE <.WORD TRANS> 
IFCOND CS THEN 
$50267 
IFCOND EQ THEN 


$50270 
CALL ERROR 
056274 PC ,ERROR 


ENDIF 
net $50270: 


$50267: 
IF RO NE #125252 THEN 
125252 RO Bigrese 


$502 
CALL ERROR 
056274 PC,ERROR 


ENDIF 
$50271: 
IF R1 NE #125252 THEN 
020127 125252 R1, #125252 
$50272 


001402 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$50272: 
020227 125252 7 oe 2, #125252 
R2,4 
001402 $50273 
CALL ERROR 


004737 056274 PC,ERROR 


ENDIF 
$50273: 
020327 125252 printers eine eae 3, 412525 
A 
001402 $ 74 . 


CALL ERROR ate 
004737 056274 ’ PC ERROR 


ENDIF 
$50274: 
020427 125252 on eee en 4 #125252 
R4,f 
001402 =e gti $50275 
004737 056274 PC ,ERROR 


ENDIF 
$50275: 
IF RS NE #125252 THEN 
020527 125252 RS .#125252 
wee CALL ERROR $5027 
004737 056274 ‘ PC ,ERROR 


$502764: 


40 
TRANS 





om 
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CJKDGA.P11 12-MAR-80 13:37 MOVTC SEQ 0066 
IF BUFF2 NE #143707 THEN 

023727 061266 143707 BUF F 24143707 

001402 $5027 


277 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$50277: 
IF BUFF2+2 NE #20040 THEN 
023727 061270 BUF F 2+2,420040 
001402 $50300 


CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$50300: 
LET RO := MBUFF2 + #4 
012700 061266 ABUF F 2,,RO 
000004 #4 ,RO 


062700 
LET ERRFLG := #0 
005037 000454 ERRFLG 


REPEAT 
$50301: 
IF (RO)+ NE #177777 THEN 
022027 177777 (R0)s #177777 


302 
CALL ERROR 
056274 PC,ERROR 


ENDIF 
$50302: 
UNTIL RO EQ ABUFF2+BUFLEN OR ERRFLG NE 40 
061366 ees re 


$50303: 
INLINE <JMP XLOCC> 


+ 
; TABLE OF TEST CASES FOR MOVTC 


TMOVTC: MOF TEST CASES FOR MOVTC 


7SRC.LEN 
7 SRC.ADR 
;DST.LEN 
7DST.ADR 
sFILL CHARACTER 
7 SRC.BUFF .STATE 
:DST.BUFF .STATE 


:TEST CASE NUMBER 2 
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: TEST CASE NUMBER 3 


TEST CASE NUMBER 4 


TMVTCI: . 2 TEST CASE FOR INLINE 





D 6 
CJKDGA, KEF11=B8 CIS DIAGNOSTIC MACY11 30A(1052) 14-MAR=80 08:04 PAGE 52 
CJKDGA.P11 12=MAR~80 13:37 LOCC 


-SBTTL LOCC 


2601 .S LARRRRARRSRARARASASLARRARARRARASARR ESSE SER ARERR RR ASRS SSE R ASRS ESS SO 


2603 > LOCC TEST 


2605 SS RRR E EERE AAA EERE EERE EA EAE ERE EERE RRERRERERREREREREE RARER 


INLINE <XLOCC:> 


XLOCC: 
INLINE <SCOPE> 
000004 SCOPE 
LET STIMES := #20 ; ITERATION COUNT 
012737 000020 000404 #20,$TIMES 
LET COUNT := TLOCC ;GET TEST COUNT 
013737 010372 009466 TLOCC , COUNT 
LET TSTCAS := #TLOCC+2 sPOINT TO FIRST TEST CASE 
012737 010374 000542 MTLOCC+2,TSTCAS 


;REPEAT 
INLINE <$5040:> 


BBeseseses 


FERARATHS 
CONAUSWIR—O 


+ 
; GET TEST DATA FROM TABLE 


LET RO := TSTCAS 

013700 TSTCAS ,RO 
LET DATAOO := (RO)+ 7 SRC.LEN 

012037 (RO) + ,DATAOO 
LET DATAQ1 := (RO)+ ; CHAR. SEARCHED FOR 

012037 (RO)+,DATAO1 
LET DATAO2 := (RO) OFFSET 

011037 (RO) ,DATAO2 


Re 


: SET UP GPR'S, 
: EXPECTED GPR'S AND CONDITION CODES, 
: AND SOURCE BUFFER. 


LET RO := DATAOO 
013700 DATAOO,RO 
LET R1 := #MBUFFI 
012701 ABUFF1,R1 
LET R4 := DATAO1 
013704 DATAO1,R4 
INLINE <BIT #B1IT00,COUNT> 
032737 #81T00, COUNT 
IFCOND EQ THEN 
001004 $50304 
LET R2 := #0 
005002 R2 
LET R3 := 40 
005003 R3 
LET RS := #0 
005005 RS 


ELSE 
000406 BR 
$50304: 
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CJKDGA.P11 12=MAR-80 13:37 LOCC SEQ 0069 
2656 007640 LET R2 := #177777 
2657 007640 012702 177777 MOV #177777 ,R2 
2658 007644 LET R3 := #177777 
2659 007644 012703 177777 MOV #177777 ,R3 
2660 007650 LET RS := #177777 
2661 007650 012705 177777 MOV #177777,R5 
2662 007654 ENDIF 
2663 007654 $50305: 
2664 007654 IF DATAO2 HI DATAOO THEN 
2665 007654 023737 000564 000560 CMP DATAO2, DATAOO 
2666 007662 101411 BLOS $50306 
2667 007664 LET RO.EXP := #0 
2668 007664 005037 000522 CLR RO.EXP 
2669 007670 LET R1.EXP := #BUFF1 + DATAOO 
2670 007670 012737 061166 000524 MOV MBUFF1,R1.EXP 
2671 007676 063737 000560 000524 ADD DATAOO,R1.EXP 
2672 007704 ELSE 
2673 007704 000414 BR $50307 
2674 007706 $50306: 
2675 007706 LET RO.EXP := DATAOO = DATAO2 
2676 007706 013737 000560 000522 MOV DATAOO,RO.EXP 
2677 007714 163737 000564 000522 SUB DATAO2,RO.EXP 
2678 007722 LET R1.EXP := #BUFF1 + DATAO2 
2679 007722 012737 061166 000524 MOV MBUFF1,R1.EXP 
2680 007730 063737 000564 000524 ADD DATAO2,R1.EXP 
2681 007736 ENDIF 
2682 007736 $50307: 
2683 007736 LET R2.EXP := R2 
2684 007736 010237 000526 MOV R2,R2.EXP 
2685 007742 LET R3.EXP := R3 
2686 007742 010337 000530 MOV R3,R3.ExP 
2687 007746 LET R4.EXP := R4 
2688 007746 010437 000532 MOV R4,R4.EXP 
2689 007752 LET RS.EXP := RS 
2690 007752 010537 000534 MOV RS.RS.EXP 
2691 007756 INLINE <TST  RO.EXP> 
2692 007756 005737 000522 TST RO.EXP 
2693 007762 LET CC.EXP := PSwW 
2694 007762 013737 177776 000520 MOV PSW,CC.EXP 
2695 007770 LET CC.EXP := CC.EXP CLR.BY #177760 
2696 007770 042737 177760 000520 BIC #177760,CC.EXP 
2697 007776 LET BFADRS := #BUFF1 
2698 007776 012737 061166 000540 MOV BUF F 1, BF ADRS 
2699 010004 CALL CLRBUF 
2700 010004 004737 055346 JSR PC, CLRBUF 
2701 010010 LET TEMPO := #BUFF1 + DATAO2 
2702 010010 012737 061166 000474 MOV #BUFF 1, TEMPO 
2703 010016 063737 000564 000474 ADD DATAO2, TEMPO 
2704 010024 LET @TEMPO :B= DATAQ1 
se 010024 113777 000562 170442 MOVB DATAO1 ,aTEMPO 
2707 it 
2708 ; DO THE CIS INSTRUCTION, 
2709 j= 
2710 


2711 010032 INLINE <LOCC> 


F 6 
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010032 076040 


3? 
; CHECK CONDITION CODES AND GPR*S FOR CORRECT RESULTS 


LET CC := PSW 
013737 177776 000516 PSwW,CC 
LET CC := CC CLR.BY #177760 
042737 177760 000516 #177760,CC 
IF CC NE CC.EXP THEN 
023737 000516 000520 CC,CC.EXP 
001402 $50310 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$50310: 
IF RO NE RO.EXP THEN 
020037 000522 RO,RO.EXP 
001402 $50311 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$50311: 
IF R1 NE R1.EXP THEN 
020137 000524 R71,R1.EXP 
001402 $50312 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$50312: 
IF R2 NE R2.EXP THEN 
020237 000526 R2,R2.EXP 
$50313 


001402 
CALL ERROR 
004737 056274 PC,,ERROR 


ENDIF 
$50313: 
IF R3 NE R3.EXP 
020337 000530 R3,R3.EXP 
001402 $50314 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$50314: 
seeeit ecanes IF RG NE R4.EXP 
R4.R4.EXP 
001402 $50315 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$50315: 
020537 000534 moe See R5,25.EXP 
J - xX 
001402 $56316 
CALL ERROR 


04 
10 
10 
10 
10 
Zs 
16 
0116 
22 
22 
2 





004737 


062737 
005337 
005737 
001402 
000137 


012737 
004737 
004737 


012737 
062737 


112777 
076140 
010416 
000040 
013737 
032737 
001402 
004737 


012737 


020037 
001402 


004737 
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13:37 
056274 


000006 


000466 


000466 


007564 


061166 
055410 
055330 


061166 
000025 


000040 


177776 
000017 


056274 


000053 
000474 


056274 
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000542 


000540 


000474 
000474 


170230 


000474 
000474 


000474 


ENDIF 
LET TSTCAS := TSTCAS + 46 
LET COUNT := COUNT = #1 
iP NCOUNT NE #0 THEN 
INLINE <JMP 
ENDIF 


$5040> 


Ad 
; DO ONE INLINE CASE = LOCCI 


LET BFADRS := #BUFF1 

CALL SE TBUF 

CALL CLRREG 

LET TEMPO := ABUFF1 + #25 


CLEAR RO - R5 


LET aTEMPO :B= #40 

INLINE <LOCCI> 

INLINE <.WORD TLOCCI> 

INLINE <.WORD 40> 

LET TEMPO := PSW 

INLINE <BIT 

IFCOND NE THEN 
CALL ERROR 


SEARCH CHARACTER 


#17, TEMPO> 


ENDIF 
LET TEMPO := #BUFLEN-25 
IF RO NE TEMPO THEN 


CALL ERROR 
ENDIF 


uSR 


ADD 
DEC 
TST 
BEQ 
JMP 





SEQ 0071 
PC,ERROR 


#&,TSTCAS 
COUNT 


COUNT 
$50317 
$5040 


#BUFF 1 ,BFADRS 
PC, SE TBUF 
PC,CLRREG 


BUF F 1, TEMPO 
#25, TEMPO 


#40 ,aTEMPO 


TLOCCI 

40 

PSwW, TEMPO 
#17, TEMPO 
$50320 

PC ,ERROR 


BUF LEN-25 , TEMPO 


RO, TEMPO 
$56321 


PC ,ERROR 
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010314 


020127 
001402 


004737 


005702 
001402 


004737 


005703 
001402 


004737 


005704 
001402 


004737 


005705 
001402 


004737 


000137 


DIAGNOS 


TI 
13:37 
061213 
056274 
056274 
056274 


056274 


056274 


010422 


$50321: 
IF R1 NE #BUFF1+25 THEN 
CALL ERROR 
ENDIF 
$50322: 
IF R2 NE #0 THEN 
CALL ERROR 
ENDIF 
$50323: 
IF R3 NE #0 THEN 
CALL ERROR 
ENDIF 
$50324: 
IF R& NE #0 THEN 
CALL ERROR 
ENDIF 
$50325: 
IF RS NE #0 THEN 
CALL ERROR 
ENDIF 
$50326: 
INLINE <JMP XSKPC> 


2+ 
; TABLE OF TEST 


TLOCC: .WORD 


H 6 
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CASES FOR LOCC. 


3 :# OF TEST CASES FOR LOCC 
0 ;SRC.LEN 

101 CHAR. SEARCHED FOR 
41 sOF FSET 

re TEST CASE NUMBER 2 

26 

3 TEST CASE NUMBER 3 

40 


SEQ 0072 


R1 ,ABUFF1+25 


$50322 


PC,ERROR 


R2 
$50323 
PC,,ERROR 


R3 
$50324 
PC,ERROR 


R4 
$50325 
PC ,,ERROR 


R5 
$50326 
PC ,,ERROR 


XSKPC 


an 
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2881 
2882 
2883 


010416 000100 TLOCCI: 
010420 061166 
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~-WORD BUFLEN TEST CASE FOR INL INE 
. WORD 


BUF F 1 


SEQ 0073 


On 


CJKDGA, KEF11=8 CIS DIAGNOS 


J 6 
A TIC MACY11 30A(1052) 14=MAR=-80 08:04 PAGE 58 
CJKDGA.P11 12-MAR-80 13:37 SKPC 


SEQ 0074 
-SBTTL SKPC 

2885 DOIG IUIIIIIIOIIOOIIIDIOIIIIIIIOIOIIIOIIUIDIUINIIIUIIOUIOIIIUIUINI IU I ii iitt 
rth 3; GRRL Tesi 
2889 PITT itt ii titi tit ti titi istiitiiitiititt iti titittt tt ttt i titi ttt 

010422 INLINE <XSKPC:> 
2891 010422 XSKPC: 
2892 010422 INLINE <SCOPE> 
2893 010422 000004 SCOPE 
2894 010424 LET STIMES := #20 : ITERATION COUNT 
2895 010424 012737 000020 000404 MOV #20,$TIMES 
2896 010432 LET COUNT := TSKPC ;GET TEST COUNT 
2897 010432 013737 011262 009466 MOV TSKPC , COUNT 
2898 010440 LET TSTCAS := #TSKPC+2 sPOINT TO FIRST TEST CASE 
2899 010440 012737 011264 000542 MOV MTSKPC+2,TSTCAS 
2900 ;REPEAT 
2901 010446 INLINE <$5041:> 
2902 010446 $5041: 
2903 
2904 3 ¢ 
2905 ; GET TEST DATA FROM TABLE 
2906 Se 
2907 
2908 010446 LET RO := TSTCAS 
2909 010446 013700 000542 MOV TSTCAS,RO 
2910 010452 LET DATAOO := (RO)+ 7 SRC.LEN 
2911 010452 012037 000560 ’ MOV (RO) +, DATAOO 
2912 010456 LET DATAO1 := (RQ)+ ;NON-SEARCH CHAR 
2913 010456 012037 000562 MOV (RO)+,DATAO1 
2914 010462 LET DATAO2 := (RO) ;OFFSET 
Sol? 010462 011037 000564 MOV (RO) ,DATAO2 
2917 i+ 
2918 ; SET UP GPR'S 
2919 ; EXPECTED GPR'S AND CONDITION CODES, 
2920 : AND SOURCE BUFFER. 
2921 i- 
2922 
2923 010466 LET RO := DATAOO 
2924 010466 013700 000560 MOV DATAOO RO 
2925 010472 LET R1 := #BUFFI 
2926 010472 012701 061166 MOV #BUFF1,R1 
2927 010476 LET R4 := #377 
2928 010476 012704 000377 MOV #377,R4 
2929 010502 INLINE <BIT #B1T00,COUNT> 
2930 010502 032737 000001 000466 BIT #BITO0O,COUNT 
2931 010510 IFCOND EQ THEN 
2932 010510 001004 BNE $50327 
2933 010512 LET R2 := #0 
2934 010512 005002 CLR R2 
2935 010514 LET R3 := #0 
2936 010514 005003 CLR R3 
2937 010516 LET R35 := #0 
2938 010516 605005 CLR R5 
2939 010520 ELSE 


aon 
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000406 


012702 
012703 
012705 


023737 
101411 


005037 


012737 
063737 


000414 
013737 
163737 


012737 
063737 


010237 
010337 
010437 
010537 
005737 
013737 
042737 
012737 
004737 
012737 
063737 


113777 


13:37 


177777 
177777 
177777 


000564 


000522 


061166 
000560 


000560 
000564 


061166 
000564 


000526 
000530 
000532 
000534 
000522 
177776 
177760 
061166 
055410 


061166 
000564 


000562 
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000520 
000520 
000540 


000474 
000474 


167560 


LET R2 : 
LET R3 := 
LET RS := 
ENDIF 
IF DATAO2 HI 


LET RO.EXP : 
LET R1.EXP : 


ELSE 


LET RO.EXP : 


LET R1.EXP : 


ENDIF 

LET R2.EXP : 
LET R3.EXP : 
LET R4.EXP : 
LET R5.EXP : 
INLINE <TST 
LET CC.EXP : 
LET CC.EXP : 
LET BFADRS : 
CALL SETBUF 


#177777 
#177777 
#177777 


DATAOO THEN 


#0 
#BUFF1 + DATAOO 


DATAOO = DATAO2 


#BUFF1 + DATAO2 


RO.EXP> 
PSwW 
CC.EXP CLR.BY #177760 
BUF F 1 


$50327: 


$50330: 


$50331: 


$50332: 


FILL BUFFER WITH SEARCH CHAR 
LET TEMPO := #BUFF1 + DATA02 


LET @TEMPO :B= DATAO1 


i+ 
: DO TRE CIS INSTRUCTION 


SEQ 0075 


$50330 


#177777 ,R2 
#177777 ,R3 
#177777 ,R5 


DATAQ2 ,DATAOO 
$50331 


RO.EXP 


#BUFF1,R1.EXP 
DATAOO ,R1.EXP 


$50332 
DATAOO,,RO.EXP 
DATAO2 ,RO.EXP 


#BUFF1,R1.EXP 
DATAO2,R1.EXP 


R2,R2.EXP 
R3,R3.EXP 
R4,R4.EXP 
RS.R5.EXP 
RO.EXP 
PSW.CC.EXP 
#177760,CC.EXP 
#BUF F 1 BF ADRS 
PC, SE TBUF 


BUFF 1, TEMPO 
DATAO2 , TEMPO 


DATAO1 ,aTEMPO 





an 
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010714 INLINE <SKPC> 
010714 076041 


3+ 
; CHECK CONDITION CODES AND GPR'S FOR CORRECT RESULTS 


010716 LET CC := PSW 
013737 177776 PSW,CC 
LET CC := CC CLR.BY #177760 
042737 177760 #177760,CC 
IF CC NE CC.EXP THEN 
023737 000516 CC,CC.EXP 
001402 $50333 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$50333: 
IF RO NE RO.EXP THEN 
020037 000522 RO,RO.EXP 
$50334 


001402 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$50334: 
IF R1 NE R1.EXP THEN 


020137 000524 R1,R1.EXP 
$50335 


001402 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$50335: 
IF R2 NE R2.EXP THEN 
020237 000526 R2,R2.ExP 
001402 $50336 
CALL ERROR 


004737 056274 PC,ERROR 
ENDIF 


020337 000530 7 oS ee ee R3,R3.EXP 
EX 
001402 $50337 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$50337: 
020437 000532 ae a See R4,R4.EXP 
EX 
001402 Ah a $50340 
004737 056274 PC ERROR 
ENDIF 


IF RS NE RS.EXP THEN 
020537 000534 R5.RS.EXP 


S388 


hong 2S a Sa 
SENMAQAANNVSO 


esssssescsessse 


esssssssssssssssssc 


Sma Ss SS Ss Ss Ss 2 SS SS os = 
A SH Ss Ss Ss SS SS SS Ss 4 a sn 4 2 SS 


ooo 
38s 





an 
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7  12=MAR=80 13:37 SEQ 0077 
3052 011034 001402 BEQ $50341 
3053 011036 ; CALL ERROR 

3054 011036 004737 056274 JSR PC, ERROR 
3055 011042 ENDIF 

3056 011042 $50341: 

3057 011042 LET TSTCAS := TSTCAS + 46 

3058 011042 062737 000006 000542 ADD #6, TSTCAS 
3059 011050 LET COUNT := COUNT - #1 

3060 011050 005337 000466 DEC COUNT 
3061 sUNTIL COUNT EQ #0 

3062 011054 IF COUNT NE #0 THEN 

3063 011054 005737 000466 TST COUNT 
3064 011060 001402 BEQ $50342 
3065 011062 INLINE <JMP $5041> 

3066 011062 000137 010446 JMP $5041 
3067 011066 ENDIF 

3068 011066 $50342: 

3069 

3070 

3071 io 

3072 ;DO ONE INLINE CASE = SKPCI 

3073 :- 

3074 

3075 011066 LET BFADRS := ABUFF1 

3076 011066 012737 061166 000540 MOV #BUFF1,BFADRS 
3077 011074 CALL SETBUF 

3078 011074 004737 055410 JSR PC, SETBUF 
3079 011100 CALL CLRREG 

3080 011100 004737 055330 JSR PC, CLRREG 
3081 011104 LET TEMPO := ABUFF1 + #25 

3082 011104 012737 061166 000474 MOV #BUFF 1, TEMPO 
3083 011112 062737 000025 000474 ADD #25, TEMPO 
3084 011120 LET @TEMPO :B= #40 

3085 011120 112777 000040 167346 MOVB #40, aTEMPO 
308 011126 INLINE <SKPCI> 

3087 011126 076141 SKPCI 

3088 011130 INLINE <.WORD TSKPCI> 

3089 011130 011300 .WORD TSKPCI 
3090 011132 INLINE <.WORD 377> 

3091 011132 000377 «WORD 377 
3092 011134 LET TEMPO := PSW 

3093 011134 013737 177776 000474 MOV PSw, TEMPO 
3094 011142 INLINE <BIT #17, TEMPO> 

3095 011142 032737 000017 000474 BIT #17, TEMPO 
3096 011150 IFCOND NE THEN 

3097 011150 001402 BEQ $50343 
3098 011152 CALL ERROR 

3099 011152 004737 056274 JSR PC ERROR 
3100 011156 ENDIF 

3101 011156 $50343: 

3102 011156 LET TEMPO := #BUFLEN - #25 

3103 011156 012737 000100 000474 MOV #BUFLEN, TEMPO 
3104 011164 162737 000025 000474 SUB #25, TEMPO 
3105 011172 IF RO NE TEMPO THEN 

3106 011172 020037 000474 CMP RO, TEMPO 
3107 011176 001402 BEQ $50344 


on, 
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SEQ 0078 
3108 011200 CALL ERROR 
3109 011200 004737 056274 JSR PC,ERROR 
3110 011204 ENDIF 
3117 011204 $50344: 
3112 011204 IF R1 NE #BUFF1+25 THEN 
3113 011204 020127 061213 CMP R1, ABUF F1+25 
3114 011210 001402 BEQ $50345 
3115 011212 CALL ERROR 
3116 011212 004737 056274 JSR PC,ERROR 
3117 011216 ENDIF 
3118 011216 $50345: 
3119 011216 IF R2 NE #0 THEN 
3120 011216 005702 TST R2 
3121 011220 001402 BEQ $50346 
3122 011222 CALL ERROR 
3123 011222 004737 056274 JSR PC ERROR 
3124 011226 ENDIF 
3125 011226 $50346: 
3126 011226 IF R3 NE #0 THEN 
3127 011226 005703 TST R3 
3128 011230 001402 BEQ $50347 
3129 011232 CALL ERROR 
3130 011232 004737 056274 JSR PC ERROR 
3131 011236 ENDIF 
3132 011236 $50347: 
3133 011236 IF R4 NE #0 THEN 
3134 011236 005704 TST R4 
3135 011240 001402 BEQ $50350 
3136 011242 CALL ERROR 
3137 011242 004737 056274 JSR PC ERROR 
3138 011246 ENDIF 
3139 011246 $50350: 
3140 011246 IF RS NE #0 THEN 
3141 011246 005705 TST RS 
3142 011250 001402 BEQ $50351 
3143 011252 CALL ERROR 
3144 011252 004737 056274 JSR PC ERROR 
3145 011256 ENDIF 
3146 011256 $50351: 
3147 011256 INLINE <JMP XSCANC> 
3148 011256 000137 011304 JMP XSCANC 
3150 it 
3151 ; TABLE OF TEST CASES FOR SKPC. 
i a 
size 011262 2 TSKPC: .WORD 2 74 OF TEST CASES FOR SKPC 
3156 011264 000040 .WORD 40 :SRC.LEN 
3157 011266 000100 WORD 100 ‘NON=SEARCH CHAR. 
3158 011270 WORD 60 OFFSET 
3160 911272 000050 .WORD 50 :TEST CASE NUMBER 2 
3161 011274 000077 “WORD 77 
3162 011276 000030 “WORD 30 


am 


one KEF11=B8 CIS D 


CJKDGA.P11 12=MAR- 
3164 
$102 011300 0001 
166 011302 061166 


TSKPCI: .WORD 
. WORD 


B 7 
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0 15:3 SKPC 


TEST CASE FOR INLINE 


SEQ 0079 


om 
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-SBTTL SCANC 


FFARR RARER AREER EERE RAE REE EE 


: SCANC TEST 


. 
WEA AAARAAARAARARALSAAASLAAARAAARELASLARSSESSASSAS ARES ESE RR SSS SSE SE 


INLINE <XSCANC:> 
INLINE <SCOPE> 


000004 
LET STIMES := #20 ; ITERATION COUNT 
012737 000020 000404 #20, $TIMES 
LET COUNT := TSCANC GET TEST COUNT 
013737 012230 000466 TSCANC , COUNT 
LET TSTCAS := #ATSCANC+2 sPOINT TO FIRST TEST CASE 
012737 012232 000542 A#TSCANC +2, TSTCAS 


;REPEAT 
INLINE <$5042:> 


XSCANC: 


oO OBAO0COCOCOCOOO 
pp a PP 
4 — td YS I SS YY SY SY 
WW WW 
WW RN 
oOo MNES 


Co 


i+ 
; GET TEST DATA FROM TABLE 


LET RO := TSTCAS 

013700 TSTCAS,RO 
LET DATAOO := (RO)+ :SRC.LEN 

012037 (RO) +,DATAOO 
LET DATAO1 := (RO) 7 OFFSET 

011037 (RO) ,DATAO1 


— et od ow ot 3 


BLKARANLESE 


3 
3 
3 
3 
3 
3 
3 
3 
3 
z 


WA 
aad ond cad and ced 


ted 

: SET UP GPR'S, 

; EXPECTED GPR'S AND CONDITION CODES 

: SOURCE BUFFER, AND CHARACTER SET TABLE. 


LET RO := DATAOO 
013700 DATAOO,RO 
LET R1 := MBUFFI 
012701 #BUFF1.R1 
LET RG := #1 : 
012704 #1,R4 
LET RS := #CHRSET 
012705 #CHRSET RS 
INLINE <BIT #BITOO,COUNT> 
032737 #81100, COUNT 
IFCOND EQ THEN 
001003 $50352 
LET R2 := #0 
005002 R2 
LET R3 := #0 
005003 R3 
ELSE 
000404 BR $50353 
$50352: 


SeeSseeeeess 


RERSRRRRR 
WWNAOUSWA— 


XS 
3 


SESW Ri 


RGR 





an 
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3224 011402 LET R2 := #177777 
3225 011402 012702 177777 MOV #177777 ,R2 
3326 011406 LET R3 := #177777 
3227 011406 012703 177777 MOV #177777,R3 
3228 011412 ENDIF 
3229 011412 $50353: 
3230 011412 IF DATAOQ1 HI DATAOO THEN 
3231 011412 023737 000562 000560 CMP DATAO1 ,DATAOO 
3532 011420 101411 BLOS  $50354 
3233 011422 LET RO.EXP := #0 
323% 011422 005037 000522 CLR RO.EXP 
3235 011426 LET R1.EXP := #BUFF1 + DATAOO 
323% 011426 012737 061166 000524 MOV #BUFF1,R1.EXP 
3337 011434 063737 000560 009524 ADD DATAOO,R1.EXP 
3238 011442 ELSE 
3239 011442 000414 BR $50355 
3240 011444 $50354: 
3241 011444 LET RO.EXP := DATAOO = DATAO1 
3242 011444 013737 000560 000522 MOV DATAOO,RO.EXP 
3243 011452 163737 000562 000522 SUB DATAO1 .RO.EXP 
3244 011460 LET R1.EXP := #BUFF1 + DATAOQ1 
3245 011460 012737 061166 000524 MOV #BUFF1LR1.EXP 
3346 011466 063737 000562 000524 ADD DATAO1,R1.EXP 
3247 011474 ENDIF 
3248 011474 $50355: 
3249 011474 LET R2.EXP := R2 
3250 011474 010237 000526 MOV R2,R2.EXP 
3251 011500 LET R3.EXP := R3 
3252 011500 010337 000530 MOV R3.R3.EXP 
3253 011504 LET R4.EXP := R4 
3254 011504 010437 000532 MOV R4.R4.EXP 
3255 011510 LET RS.EXP := R5 
3256 011510 010537 000534 MOV R5S.R5.EXP 
3257 011514 INLINE <TST  RO.EXP> 
3258 011514 005737 000522 TST  RO.EXP 
3259 011520 LET CC.EXP := PSW 
3260 011520 013737 177776 000520 MOV PSwW.CC.EXP 
3261 011526 LET CC.EXP := CC.EXP CLR.BY #177760 
3262 011526 042737 177760 000520 BIC #177760,CC.EXP 
3263 011534 LET BFADRS := #BUFF1 
3264 011534 012737 061166 000540 MOV #BUF F 1,BF ADRS 
3265 011542 CALL CLRBUF 
3266 011542 004737 055346 JSR PC, CLRBUF 
3267 011546 LET TEMPO := #BUFF1 + DATAQ1 
3368 011546 012737 061166 000474 MOV #BUFF 1, TEMPO 
3269 011554 063737 000562 000474 ADD DATAQ1. TEMPO 
3270 011562 LET aTEMPO :B= #125 
3271 011562 112777 000125 166704 MOVB #125, aTEMPO 
3272 011570 WHILE RS LO #CHRSET+400 DO 
3273 011570 $50356: 
3274 011570 020527 062366 CMP RS .ACHRSE T+400 
3275 011574 103002 BHIS  $50357 
3276 011576 INLINE <CLR (R5)+> :CLEAR CHAR SET TABLE 
3277 011576 005025 CLR (RS)+ 
3278 011600 ENDDO 
3279 011600 000773 BR $50356 


sf 
CJKDGA, KEF11-B CIS DIAGNO MACY11 30A(1052) 14=MAR=80 08:04 PAGE 66 
CJKDGA.P11 12=-MAR-80 13: SCANC 


$50357: 
LET RS := #CHRSET ;RESTORE R5 
012705 MOV #CHRSET ,R5 
LET TEMPO := #CHRSET + #125 
012737 000474 MOV #CHRSET , TEMPO 
062737 000474 ADD #125, TEMPO 
LET @TEMPO :B= #1 SET MASK IN CHAR SET TABLE 
112777 166644 MOVB #1 ,aTEMPO 


RRERRRRR 


i+ 
; DO THE CIS INSTRUCTION 


INLINE <SCANC> 


2@ 
; CHECK CONDITION CODES AND GPR'S FOR CORRECT RESULTS 


LET CC := PSwW 
013737 177776 000516 PSw.CC 
LET CC := CC CLR.BY #177766 
042737 177760 000516 #177760,CC 
IF CC NE CC.EXP THEN 
023737 000516 000520 CC,CC.EXP 
001402 $50360 
CALL ERROR 
004737 056274 PC ERROR 
ENDIF 


IF RO NE RO.EXP THEN 
020037 000522 RO,RO.EXP 
$50361 


001402 
CALL ERROR 
004737 056274 PC,.ERROR 
ENDIF 


IF R1 NE R1.EXP THEN 
020137 000524 R1,R1.EXP 
001402 $50362 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$50362: 
IF R2 NE R2.EXP THEN 
020237 000526 R2,.R2.EXP 
001402 $56363 
CALL ERROR 


004737 056274 PC .ERROR 


ENDIF 
$50363: 
IF R3 NE R3.EXP THEN 
020337 000530 R3,R3.EXP 
001402 $50364 
CALL ERROR 


lalelelelelelelelejlele) 
RS oS Ss 4 





on 
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22444 
—F 
~ 
o 


012054 


004737 056274 


020437 000532 
001402 


004737 056274 


020537 000534 
001402 


004737 056274 


062737 000004 
005337 000466 
005737 000466 
001402 

000137 011330 


012737 
004737 
012737 
062737 
112777 
012700 
020027 
103002 
005020 
000773 


000542 
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ENDIF 
TF RG NE R4.EXP THEN 


CALL ERROR 
ENDIF 
IF R5 NE RS.EXP THEN 


CALL ERROR 
ENDIF 


LET TSTCAS := TSTCAS + #4 


LET COUNT := COUNT = #1 
UNTIL COUNT EQ 40 
IF COUNT NE #0 THEN 
INLINE <JMP $5042> 
ENDIF 


29 
: DO ONE INLINE CASE - SCANCI. 


LET BFADRS := BUFF 1 
CALL CLRBUF 
LET TEMPO := MBUFF1 + #50 


LET @TEMPO :B= #27 
LET RO := ACHRSET 
WHILE RO LO #CHRSET+400 DO 


INLINE <CLR (RO) +> 
ENDDO 


LET TEMPO := #CHRSET + #27 


$50364: 


$50365: 


$50366: 


$50367: 


$50370: 
C 


:CLEAR CHAR.SET TABLE 


BR 
$50371: 


PC ,ERROR 


R4,R4.EXP 


$50365 
PC ERROR 


R5,R5.EXP 


$50366 
PC ERROR 


#4, TSTCAS 
COUNT 


COUNT 
$50367 
$5042 


#BUF F 1 BF ADRS 
PC. CLRBUF 


#BUFF 1, TEMPO 
#50, TEMPO 


#27 ,aTEMPO 
#CHRSET,RO 
aggre 
(RO) + 

$50370 





aa 
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3392 012054 012737 061766 
3393 012062 062737 000027 
3394 012070 
3395 012070 112777 000010 
3396 012076 
3397 012076 004737 055330 
3398 012102 
3399 012102 076142 
3400 012104 
3401 012104 012246 
3402 012106 
3403 012106 012252 
3404 012110 
3405 012110 013737 177776 
3406 012116 
3407 012116 032737 000017 
3408 012124 
3409 012124 001402 
3410 012126 
3411 012126 004737 056274 
3412 012132 
3413 012132 
3414 012132 
3415 012132 012737 000030 
3416 012140 
3417 012140 020037 000474 
318 012144 001402 
3419 012146 
3420 012146 004737 056274 
3421 012152 
3422 012152 
3423 012152 
3424 012152 020127 061236 
3425 012156 001402 
3426 012160 
3427 012160 004737 056274 
328 012164 
3429 012164 
3430 012164 
3431 012164 005702 
3432 012166 001402 
3433 012170 
3434 012170 004737 056274 
3435 012174 
3436 012174 
3437 012174 
3438 012174 005703 
3439 012176 001402 
3440 012200 
3441 012200 004737 056274 
3442 012204 
3443 012204 
3444 012206 
3445 012206 005704 
3446 012206 001402 
3447 012210 
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000474 
000474 


166376 


000474 
000474 


000474 


LET @TEMPO :B= #10 
CALL CLRREG 
INLINE <SCANC!> 
INLINE <.WORD TSCNCI> 
INLINE <.WORD TSCNCI+4> 
LET TEMPO := PSW 
INLINE <BIT #17, TEMPO> 
IFCOND NE THEN 

CALL ERROR 
ENDIF 
LET TEMPO := #BUFLEN-50 
IF RO NE TEMPO THEN 


CALL ERROR 
ENDIF 
IF R1 NE #BUFF1+50 THEN 


CALL ERROR 
ENDIF 
IF R2 NE #0 THEN 


CALL ERROR 
ENDIF 
IF R3 NE #0 THEN 


CALL ERROR 
ENDIF 
IF R4 NE #0 THEN 


CALL ERROR 


ADD 
SET MASK IN CHAR SET TABL 
MOVB 


$50372: 


$50373: 
$50374: 
$50375: 


$50376: 





MOV 


SEQ 0084 


ACHRSET , TEMPO 
#27, TEMPO 


E 
#10, aTEMPO 
PC,CLRREG 


TSCNCI 
TSCNCI +4 
PSwW, TEMPO 
#17, TEMPO 
$50372 
PC,ERROR 


BUF LEN-50, TEMPO 


RO, TEMPO 
$50373 


PC,ERROR 


R1 , ABUF F1+50 
$50374 


PC,.ERROR 


R2 
$50375 
PC,,ERROR 


R3 
$50376 
PC .ERROR 


R4 
$50377 


an 
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3448 
3449 
3450 
3451 
3452 


3453 
3454 


012230 


012232 
012234 


012236 
012240 


012242 
012244 
012246 


012254 


12=MAR-80 1 
004737 056274 


005705 
001402 


004737 056274 


000137 01225¢ 


ENDIF 
IF RS NE #0 THEN 


CALL ERROR 
ENDIF 
INLINE <JMP XSPANC> 


2> 


TSCANC: .WORD 3 


-WORD 0 
«WORD 20 
«WORD BUFLEN 
-WORD 30 
«WORD BUFLEN 


-WORD BUFLEN+10 


TSCNCI: .WORD At 
-WORD BUFF 1 


° 10 
«WORD CHRSET 


: TABLE OF TEST CASES FOR SCANC. 


- << 
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JSR PC,ERROR 


$50377: 
TST RS 
BEQ $50400 
JSR PC,ERROR 
$50400: 


JMP XSPANC 


:M0F TEST CASES FOR SCANC 


;SRC.LEN 
OFFSET 


TEST CASE NUMBER 2 


TEST CASE NUMBER 3 


TEST CASE FOR INLINE 


SEQ 0085 


anton) 
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3481 -SBTTL SPANC 


3482 RRR RRR kek Ra hehehehehe hehehehe Rett haha hata hahelelahehehehahahahahelhehelehehshehelalehahahahehehehahehehelahalehahahehel 


: SPANC TEST 


3485 : 
3486 SAAR ERE EEE EERE REE EERE EERE EER EERE ERE REE EE 


3487 012256 INLINE <XSPANC:> 
3488 012256 XSPANC : 
3%489 012256 INLINE <SCOPE> 
3490 012256 000004 SCOPE 
3491 012260 LET STIMES := #20 ; ITERATION COUNT 
3492 012260 012737 000020 000404 MOV #20,$TIMES 
3%493 012266 LET COUNT := TSPANC GET TEST COUNT 
94 012266 013737 013152 000466 MOV TSPANC , COUNT 
3495 012274 LET TSTCAS := #TSPANC+2 sPOINT TO FIRST TEST CASE 
96 012274 012737 013154 000542 MOV ATSPANC +2, TSTCAS 


;REPEAT 
3498 012302 INLINE <$5043:> 
99 012302 $5043: 


-+ 
3502 ; GET TEST DATA FROM TABLE 
seor > 


3505 012302 LET RO := TSTCAS 
06 012302 013700 000542 MOV TSTCAS,RO 
3507 012306 LET DATAOO := (RO)+ zSRC.LEN . 
3508 012306 012037 000560 MOV (RO) + ,DATAOO 
3509 012312 LET DATAO1 := (RO) ; OFFSET 
012312 011037 000562 MOV (RO) ,DATAO1 


3513 : SET UP GPR'S, 
3514 EXPECTED GPRS AND CONDITION CODES, 
siz : _ SOURCE BUFFER, AND CHARACTER SET TABLE. 


3518 012316 LET RO := DATAOO 

3519 012316 013700 000560 MOV DATAOO RO 
3520 012322 LET R1 := ABUFFI 

3521 012322 012701 061166 MOV BUFF 1,R1 
3522 012326 LET R& := #40 :MASK 

3523 012326 012704 000040 MOV #40,R4 
3524 012332 LET R5 := ACHRSET 

3525 012332 012705 061766 MOV #CHRSET RS 
3526 012336 INLINE <BIT #B1T00,COUNT> 

3527 012336 032737 000001 000466 BIT #81100, COUNT 
3528 012344 IFCOND EQ THEN 

3529 012344 001003 BNE $50401 
3530 012346 LET R2 := #0 

3531 012346 005002 CLR R2 

3532 012350 LET R35 := #0 

12350 005003 CLR R3 

12352 ELSE 

12352 000404 BR $50402 
12354 $50401: 


fanYen) 
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WW 


ee ee ey 


eolelelelelelelelele) 
w 


012552 


012702 
012703 


023737 
101411 


005037 


012737 
063737 


000414 
013737 
163737 


012737 
063737 


010237 
010337 
010437 
010537 
005737 
013737 
042737 
012737 
004737 


012737 
063737 


112777 
020527 
103002 
005025 
000773 


TIC 
13:37 
177777 
177777 


000562 


000522 


061166 
000560 


000560 
000562 


061166 
000562 


000526 
000530 
000532 
000534 
000522 
177776 
177760 
061166 
055346 


061166 
000562 


000252 


062366 


000520 
000520 
000540 


000474 
000474 


165732 
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LET R2 := #177777 
LET R3 := #177777 
ENDIF 
IF DATAO1 HI DATAOO THEN 


LET RO.EXP := #0 
LET R1.EXP := #BUFF1 + DATAOO 


ELSE 


LET RO.EXP := DATAOO = DATAO1 


LET R1.EXP := #BUFF1 + DATAO1 


ENDIF 

LET R2.EXP : 

LET R3.EXP : 

LET R4&.EXP : 

LET RS.EXP : 

INLINE <TST RO.EXP> 

LET CC.EXP := PSW 

LET CC.EXP := CC.EXP CLR.BY #177760 
LET BFADRS := #BUFF1 

CALL CLRBUF 

LET TEMPO := #BUFF1 + DATAQ1 


LET @TEMPO :B= #252 


WHILE R5 LO #CHRSET+400 DO 


INLINE <CLR (R5)+> 
ENDDO 


$50402: 


BR 
$50403: 


$50405: , 
BHIS 
CLEAR CHAR. SET TABLE 
CLR 


BR 


SEQ 0087 


#177777 ,R2 
#177777 ,R3 


DATAQ1 ,DATAOO 
$50403 


RO.EXP 


MBUFF1,R1.EXP 
DATAOO ,R1.EXP 


$50404 
DATAOO,RO.EXP 
DATAO1 ,RO.EXP 


MBUFF1,R1.EXP 
DATAO1 ,R1.EXP 


R2,R2.EXP 
R3,R3.EXP 
R4,R4.EXP 
R5,R5.EXP 
RO.EXP 
PSW,.CC.EXP 
#177760,CC.EXP 
BUF F 1 ,BF ADRS 
PC ,,CLRBUF 
#BUF F 1, TEMPO 
DATAO1 , TEMPO 
#252 ,aTEMPO 

7 rt aaa eae 
(R5)+ 

$50405 





Qo 


K 7 
CJKDGA, KEF11-B CIS DIAGNOSTIC MACYT1 g oh 14=MAR=80 08:04 PAGE 72 
CJKDGA:P11 12=-MAR-80 13:37 


012554 $50406: 
0 LET RS := #CHRSET RESTORE R5 
012705 061766 MOV ACHRSET ,R5 
LET CHRSET :B= #40 :StT MASK IN CHAR. SET 


112737 000040 061766 MOVB #40,CHRSET 


3+ 
: DO THE CIS INSTRUCTION 


INLINE <SPANC> 


i+ 
; CHECK CONDITION CODES AND GPR*S FOR CORRECT RESULTS 


LET CC := PSW 
013737 177776 000516 PSW,CC 
LET CC := CC CLR.BY #177760 
042737 177760 000516 #177760,CC 
IF CC NE CC.EXP THEN 
023737 000516 000520 CC,CC.EXP 
02 $50407 


0014 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$50407: 
IF RO NE RO.EXP THEN 
020037 000522 RO,RO.EXP 
$50410 


001402 
CALL ERROR 
004737 056274 PC,,ERROR 
ENDIF 


2 


vistatatats 
WON UTES 


Aa 


004737 


020237 
001402 


004737 


020337 
001402 


004737 


056274 


000526 


056274 


000530 


056274 


CALL 
ENDIF 
IF R2 NE 


CALL 
ENDIF 
IF R3 NE 


CALL 
ENDIF 


ERROR 


R2.EXP THEN 


ERROR 


R3.EXP THEN 


ERROR 


PC ERROR 


R2,R2.EXP 
$56412 


PC ,ERROR 


R3,R3.EXP 
$50413 


PC ERROR 
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012670 
020437 000532 
001402 


004737 056274 


020537 000534 
001402 


004737 056274 


062737 000004 000542 
012722 005337 000466 
012726 

005737 000466 

001402 

000137 012302 


012740 


012740 
012737 


004737 
012737 
062737 
112777 
012700 
020027 
103002 
005020 
000773 


004737 055330 
112737 000010 061766 


SooCoo°o°oo 
— 8 oS 
Baines 

ee ed eed ed eed 
AAMNMNVOCO 
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IF R& NE R4&.EXP THEN 


CALL ERROR 
ENDIF 
IF RS NE R5.EXP THEN 


CALL ERROR 
ENDIF 
LET TSTCAS := TSTCAS + 4&4 
LET COUNT := COUNT - #1 
iP COUNT NE #0. THEN 
INLINE <JMP $5043> 
ENDIF 


i+ 
: DO ONE INLINE CASE - SPANCI 


LET BFADRS := #BUFF1 
CALL CLRBUF 
LET TEMPO := MBUFF1 + #50 


LET @TEMPO :B= #27 

LET RO := #CHRSET 

WHILE RO LO #CHRSET+400 DO 
LET (RO)+ := #0 :CLEAR CHAR. SET TABLE 

ENDDO 


CALL CLRREG 
LET CHRSET :B= #10 


$50414: 


$50415: 


R4,R4.EXP 


$50414 


PC,ERROR 


R5,R5.EXP 
$50415 


PC,,ERROR 


#4, TSTCAS 
COUNT 


COUNT 
$50416 
$5043 


#BUF F 1 BF ADRS 
PC, CLRBUF 


#BUFF 1, TEMPO 
#50, TEMPO 


#27 ,aTEMPO 
#CHRSET RO 

RO, ACHRSE T +400 
$50420 

(RO) + 

$50417 


PC,CLRREG 
#10, CHRSET 
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3705 013024 INLINE <SPANCI> 

3706 013024 076143 SPANCI 

3707 013026 INLINE <.WORD TSPNCI> 

3708 013026 013170 .WORD TSPNCI 
3709 013030 INLINE <.WORD TSPNC1+4> 

3710 013030 013174 .WORD TSPNCI+4 
3711 013032 LET TEMPO := PSW 

3712 013032 013737 177776 000474 MOV PSw, TEMPO 
3713 013040 INLINE <BIT #17, TEMPO> 

3714 013040 032737 000017 000474 BIT #17, TEMPO 
3715 013046 IFCOND NE THEN 

3716 013046 001402 BEQ $50421 
3717 013050 CALL ERROR 

3718 013050 004737 056274 JSR PC,ERROR 
3719 013054 ENDIF 

3720 013054 $50421: 

3721 013054 LET TEMPO := #BUFLEN-5O 

3722 013054 012737 000030 000474 MOV #BUFLEN-50, TEMPO 
3723 013062 IF RO NE TEMPO THEN 

3724 013062 020037 000474 CMP RO, TEMPO 
3725 013066 001402 BEQ $50422 
3726 013070 CALL ERROR 

3727 013070 004737 056274 JSR PC ERROR 
3728 013074 ENDIF 

3729 013074 $50422: 

3730 013074 IF R1 NE #BUFF1+50 THEN 

3731 013074 020127 061236 CMP R1, #BUFF 1+50 
3732 013100 001402 BEQ $50423 
3733 013102 CALL ERROR 

3734 013102 004737 056274 JSR PC ERROR 
3735 013106 ENDIF 

3736 013106 $50423: 

3737 013106 IF R2 NE #0 THEN 

3738 013106 005702 TST R2 

3739 013110 001402 BEQ $504.24 
3740 013112 CALL ERROR 

3741 013112 004737 056274 JSR PC ERROR 
3742 013116 ENDIF 

3743 013116 $50424: 

3744 013116 IF R3 NE #0 THEN 

3745 013116 005703 TST R3 

3746 013120 001402 BEQ $50425 
3747 013122 : CALL ERROR 

3748 013122 004737 056274 JSR PC ERROR 
3749 013126 ENDIF 

3750 013126 $50425: 

3751 013126 IF R4 NE #0 THEN 

3752 013126 005704 TST R4 

3753 013130 901402 BEQ $50426 
3754 013132 CALL ERROR 

3755 013132 004737 056274 JSR PC ERROR 
3756 013136 ENDIF : 

3757 013136 $50426: 

3758 013136 IF RS NE #0 THEN 

3759 013136 005705 TST RS 

3760 013140 001402 BEQ $50427 


aa 
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CALL ERROR 
004737 056274 JSR PC, ERROR 


ENDIF 
$50427: 
INLINE <JMP XCMPC> 
000137 013200 JMP XCMPC 


+ 
; TABLE OF TEST CASES FOR SPANC 


013152 TSPANC: .WORD 3 :4 OF TEST CASES FOR SPANC 


013154 000000 -WORD 0Q 7SRC.LEN 
013156 -WORD 530 7 OFFSET 


013160 -WORD BUFLEN : TEST CASE NUMBER 2 
013162 000040 -WORD 40 


013164 -WORD BUFLEN TEST CASE NUMBER 3 
013166 000104 «WORD BUFLEN+4 
013170 TSPNCI: wns BUF LEN TEST CASE FOR INLINE 


BUFF 1 
-WORD 10 
013176 ° CHRSET 





al 
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37 ~SBTTL CMPC 
3789 FLARE REE EERE REE KEKE EH 
3 ; 
373) ; CMPC TEST 
3793 TUES IIIS IEE IOUS IODIOIDIII III III II ot 
013200 INLINE <XCMPC:> 
3795 013200 XCMPC : 
013200 INLINE <SCOPE> 
3797 013200 000004 SCOPE 
3798 0132%2 LET STIMES := #20 ; ITERATION COUNT 
3799 013202 012737 000020 000404 MOV #20, $TIMES 
013210 LET COUNT := TCMPC :GET TEST COUNT 
3801 013210 013737 014152 009466 MOV TCMPC , COUNT 
3802 013216 LET TSTCAS := ATCMPC+2 s;POINT TO FIRST TEST CASE 
3803 013216 012737 014154 000542 ae MOV #TCMPC+2,TSTCAS 
3805 013224 INLINE <$5044:> 
013224 $5044: 
3807 
+ 
; GET TEST DATA FROM TABLE 
3810 i- 
3811 
3812 013224 LET RO := TSTCAS 
3813 013224 013700 000542 MOV TSTCAS RO 
3814 013230 LET DATAOO := (RO)+ 7SRC1.LEN 
3815 013230 012037 000560 MOV (RO) +,DATAOO 
3816 013234 LET DATAO1 := (RO)+ 7SRC2.LEN 
3817 013234 012037 000562 MOV (RO) +,DATAO1 
3818 013240 LET DATAO2 := (RO) ZOFFSET 
3819 013240 011037 000564 MOV (RO) ,DATAO2 
3821 i+ 
3822 : SET UP GPR'S 
3823 i 
3824 
3825 013244 LET RO := DATAOO 7SRC1 
013244 013700 000560 MOV DATAOO,RO 
3827 013250 LET R1 := ABUFF1 
3828 013250 012701 061166 MOV #BUFF1.R1 
013254 LET R2 := DATAO1 sSRC2 
38. 013254 013702 000562 MOV DATAO1,R2 
3831 013260 LET R3 := ABUFF2 
38 013260 012703 061266 MOV #BUF F2,R3 
3833 013264 LET R4 := 4377 sFILL CHARACTER 
38. 013264 012704 000377 MOV #377 RS 
3835 013270 LET OFFSET := DATAO2 SOFFSET 
3836 013270 013737 000564 000510 MOV DATAOQ2 ,OF FSET 
3837 013276 INLINE <BIT #B1T00,COUNT> 
013276 032737 000001 000466 BIT #81700, COUNT 
3839 013304 IFCOND EQ THEN 
3840 013304 001002 « BNE $50430 
3841 013306 LET RS := #0 
3842 013306 005005 CLR RS 
3843 013310 ELSE 


C 8 
CJKDGA, KEF11=B CIS DIAGNOSTIC MACY11 30A(1052) 14-MAR-80 08:04 PAGE 77 
CJKDGA.P11 12-MAR-80 13:37 “CMPC 


000402 6R $50431 


$50430: 
LET R5 := #177777 
012705 #177777 ,R5 


ENDIF 
$50431: 


5? 
; SET UP BUFFERS 


LET BFADRS := #BUFF1 
012737 061166 000540 MBUF F 1 BF ADRS 
CALL SETBUF 
004737 055410 PC, SE TBUF 
LET BFADRS := #BUFF2 
012737 061266 000540 #BUF F 2 ,BF ADRS 
CALL SETBUF 
004737 055410 PC, SE TBUF 
IF DATAOO HI DATAO1 THEN 
023737 000560 000562 DATAOO ,DATAO1 
101412 $50432 
LET TEMPO := OFFSET + BUFF 
013737 000510 000474 OF FSET, TEMPO 
062737 061166 000474 BUFF 1, TEMPO 
LET CC.EXP := #1 
012737 000001 000520 ~— #1,CC.EXP 
000411 $50433 


$50432: 
013737 000510 7 taal vite pai A Female OF FSET, TEMPO 
062737 061266 #BUF F 2. TEMPO 
LET CC.EXP := #10 
012737 000010 #10,CC.EXP 


ENDIF 
$50433: 
LET @TEMPO :B= #0 
105077 165050 aTEMPO 


ae 
; SET UP EXPECTED GPR'S AND CONDITION CODES 


000522 LET RO.EXP := RO = DATAQ2 asa 
-RO.EXP 
000564 000522 DATAO2 ,RO.EXP 
LET R1.EXP := R1 + DATAO2 


R1,R1.EXP 
06373 000524 DATAQ2 ,R1. EXP 
LET R2.EXP := R2 = DATAQ2 
37 000526 


2 R2,R2.EXP 

737 000564 000526 DATAQ2 ,R2.EXP 
3 

7 


oo 
—, 
bs 
La) 
r~ 


EINK SSOKKS 


010037 
163737 
010137 000524 

7 000564 
LET R3.EXP z= R3 + DATAO2 


37 000530 
37 000564 Datmase 


ecegeeece 
PEER ERR RE 


01 
16 
01 


0 
3 
0 
3 


-EXP 
06 000530 DATAO2,R3.EXP 
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3900 013474 LET RG.EXP := RG 
$901 013474 010437 000532 MOV R4,R4.EXP 
3902 013500 LET RS.EXP := R5 
3903 013500 010537 000534 MOV RS,R5S.EXP 
3904 013504 IF DATAO2 HIS DATAOO THEN 
3905 013504 023737 000564 000560 CMP DATAO2,D. “00 
3906 013512 103406 BLO $504 34 
3907 013514 LET RO.EXP := #0 
3908 013514 005037 000522 CLR RO.EXP 
3909 013520 LET R1.EXP := R1 + RO 
3910 013520 010137 000524 MOV R1,R1.EXP 
3911 013524 060037 000524 ADD RO.R1.EXP 
3912 013530 ENDIF 
3913 013530 $50434: 
3914 013530 IF DATAO2 HIS DATAQ1 THEN 
3915 013530 023737 000564 000562 CMP DATAQ2,DATAO1 
3916 013536 103406 BLO $504 35 
3917 013540 LET R2.EXP := #0 
3918 013540 005037 000526 CLR R2.EXP 
3919 013544 LET R3.EXP := R3 + R2 
3920 013544 010337 000530 MOV R3,R3.EXP 
3921 013550 060237 000530 ADD R2.R3.EXP 
3922 013554 ENDIF 
3923 013554 $50435: 
3924 013554 IF DATAO2 HIS DATAOO AND DATAO2 HIS DATAO1 THEN 
3925 013554 023737 000564 000560 CMP DATAO2,DATAOO 
3926 013562 103407 BLO t 
3927 013564 023737 000564 000562 CMP DATAO2, DATAO1 
3928 013572 103403 BLO $504 36 
3929 013574 LET CC.EXP := #4 
3930 013574 012737 000004 000520 MOV #4,CC.EXP 
3931 013602 ENDIF 
3932 013602 $50436: 
3933 
3934 i+ 
3935 ; DO THE CIS INS *RUCTION 
3936 - 
3937 
3938 013602 INLINE <CMPC> 
3939 013602 076044 CMPC 
3940 
3941 i+ 
So0% ; CHECK CONDITION CODES AND GPR'S FOR CORRECT RESULTS 
3944 
3945 013604 LET CC := PSW 
3946 013604 013737 177776 000516 MOV Psw,CC 
3947 013612 LET CC := CC CLR.BY #177760 
3948 013612 042737 177760 000516 BIC #177760,CC 
3949 013620 IF CC NE CC.EXP THEN 
3950 013620 023737 000516 000520 CMP CC,CC.EXP 
3951 013626 001402 BEQ $50437 
3952 013630 CALL ERROR 
3953 013630 004737 056274 JSR PC ERROR 
3954 013634 ENDIF 
3955 013634 $50437: 
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013754 
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020037 
001402 


004737 


020137 
001402 


004737 


020237 
001402 


004737 


020337 
001402 


004737 


020437 
001402 


004737 


020537 
001402 


004737 


062737 
005337 
005737 
001402 
000137 


: 


000522 


056274 


000524 


056274 


000526 


056274 


000530 


056274 


000532 


056274 


000534 


056274 


000006 


000466 


060466 


013224 
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000542 
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IF RO NE 


CALL 
ENDIF 
IF R1 NE 


CALL 
ENDIF 
IF R2 NE 


CALL 
ENDIF 
IF R3 NE 


CALL 
ENDIF 
IF R4 NE 


CALL 
ENDIF 
IF RS NE 


CALL 
ENDIF 


LET TSTCAS := 
LET COUNT := 


;UNTIL COUNT EQ #0 
IF COUNT NE #0 THEN 


INL INE 


RO.EXP THEN 


ERROR 


R1.EXP THEN 


ERROR 


R2.EXP THEN 


ERROR 


R3.EXP THEN 


ERROR 


R4.EXP THEN 


ERROR 


R5.EXP THEN 


ERROR 


TSTCAS + #6 
COUNT - #1 


<JMP $5044> 


$50440: 


$50441: 


$50442: 


$50443: 


$50444: 


$50445: 


$50446: 


CMP 
BEQ 


JSR 


CMP 
BEQ 


JSR 


CMP 
BEQ 


JSR 


CMP 
BEQ 


JSR 


CMP 
BEQ 


JSR 


CMP 
BEQ 


JSR 


ADD 
DEC 
TST 
BEQ 
JMP 


RO,RO.EXP 
$50440 


PC,ERROR 


R1,R1.ExXP 


$50441 
PC ERROR 


R2,R2.EXP 


$50442 


PC,ERROR 
R3,R3.EXP 
$50443 
PC,.ERROR 


R4,R4.EXP 
$50444 
PC.ERROR 
R5,R5.EXP 
$50445 
PC,,ERROR 


#6, TSTCAS 
COUNT 
COUNT 
$50446 
$5044 


SEQ 0095 


: F 8 
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4012 z¢ 

4013 : DO ONE INLINE CASE = CMPCI 

4014 = 

4015 

4016 013754 LET BFADRS := #BUFF1 

4017 013754 012737 061166 000540 MOV #BUF F 1 ,BF ADRS 

4018 013762 CALL CLRBUF 

4019 013762 004737 055346 JSR PC, CLRBUF 

4020 013766 LET BFADRS := A#BUFF2 

4021 013766 012737 061266 000540 MOV ABUF F 2 ,BF ADRS 

4022 013774 CALL CLRBUF 

4023 013774 004737 055346 JSR PC, CLRBUF 

4024 014000 CALL CLRREG 

4025 014000 004737 055330 JSR PC, CLRREG 

4026 014004 LET TEMPO := #BUFF1 + #40 

4027 014004 012737 061166 000474 MOV #BUFF 1, TEMPO 

4028 014012 062737 000040 000474 ADD #40, TEMPO 
014020 LET aTEMPO :B= #377 

4030 014020 112777 000377 164446 MOVB  4#377,aTEMPO 

4031 014026 INLINE <CMPCI> 

4032 014026 076144 CMPCI 

4033 014030 INLINE <.WORD TCMPCI> 

4034 014030 014234 - WORD TCMPCI 

4035 014032 INLINE <.WORD TCMPCI+4> 

4036 014032 014240 .WORD  TCMPCI+4 | 

4037 014034 INLINE <.WORD 0> 

4038 014034 000000 .WORD 0 

4039 014036 LET TEMPO := PSW 

4040 014036 013737 177776 000474 MOV PSw, TEMPO 

4041 014044 LET TEMPO := TEMPO CLR.BY #177760 

4042 014044 042737 177730 000474 BIC #177760, TEMPO 

4043 014052 IF TEMPO NE #10 THEN 

4044 014052 023727 000474 000010 CMP TEMPO, #10 

4045 014060 001402 BEQ $50447 

4046 014062 CALL ERROR 

4047 014062 004737 056274 JSR PC ,ERROR 

4048 014066 ENDIF 

4049 014066 $50447: 

4050 014066 IF RO NE #0 THEN 

4051 014066 005700 TST RO 

4052 014070 001402 BEQ $50450 

4053 014072 CALL ERROR 

4054 014072 004737 056274 JSR PC ERROR 

4055 014076 ENDIF 

4056 014076 $50450: 

4057 014076 IF R1 NE #0 THEN 

4058 014076 005701 TST R1 

4059 014100 001402 BEQ $50451 

4060 014102 CALL ERROR 

4061 014102 004737 056274 JSR PC ERROR 

4062 014106 ENDIF 

4063 014106 $50451: 

4064 014106 IF R2 NE #0 THEN 

4065 014106 005702 iST R2 

4066 014110 001402 BEQ $50452 

4067 014112 CALL ERROR 


ov 
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4068 014112 004737 056274 uSR PC,ERROR 
4069 014116 ENDIF 

4070 014116 $50452: 

4071 014116 IF R3 NE #0 THEN 

4072 014116 005703 TST R3 

4073 014120 001402 BEQ $50453 
4074 014122 CALL ERROR 

4075 014122 004737 056274 JSR PC,ERROR 
4076 014126 ENDIF 

4077 014126 $50453: 

4078 014126 IF R&4 NE #0 THEN 

4079 014126 005704 TST R4 

4080 014130 001402 BEQ $50454 
4081 014132 CALL ERROR 

4082 014132 004737 056274 JSR PC,ERROR 
4083 014136 ENDIF 

4084 014136 $50454: 

4085 014136 IF RS NE #0 THEN 

4086 014136 005705 TST RS 

4087 014140 001402 BEQ $50455 
4088 014142 CALL ERROR 

4089 014142 004737 056274 JSR PC,ERROR 
4090 014146 ENDIF 

4091 014146 $50455: 

4092 014146 INLINE <JMP XMATC> 

4093 014146 000137 014244 JMP XMATC 
4094 

4095 i+ 

4096 ; TABLE OF TEST CASES FOR CMPC 

2098 fi 

rit 014152 000010 TCMPC: .WORD 8. s# OF TEST CASES FOR CMPC 

4101 014154 000000 -WORD 0 7SRC1.LEN 

4102 014156 000020 «WORD 20 7SRC2.LEN 

aint 014160 000040 -WORD 40 OFFSET 

4105 014162 000010 -WORD 10 ;TEST CASE NUMBER 2 

4 014164 000030 WORD 30 

oie 14166 000007 WORD 

4109 014170 000044 -WORD 44 ;TEST CASE NUMBER 3 

4110 014172 000070 -WORD 70 

Tb 014174 000060 -WORD 60 

4113 014176 000030 -WORD 30 3 TEST CASE NUMBER 4 

4114 014200 000050 -WORD 50 

rt 7 014202 000060 «WORD 60 

4117 014204 000000 -WORD 0 i; TEST CASE NUMBER 5 

4118 014206 000000 -WORD 0 

iy 014210 000010 -WORD 10 

4121 014212 000060 «WORD 60 ;TEST CASE NUMBER 6 

4122 014214 000040 «WORD 40 

4123 014216 000030 «ORD 30 


CJKDGA, KEF 11-8 CI 
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014242 
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i TEST CASE NUMBER 7 


TEST CASE NUMBER 8 


TEST CASE FOR INLINE 





ana 
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CJKDGA.P11 
4138 -SBTTL MATC 


4139 SRA ARERR EERE ERRATA EERE EERE RARER EERE EERE EER ERE 

4340 : 

414) > MATC TEST 

4143 PETIT Titi titi iii itti titi titi titi itit titi titi titi tt ttt ttt t tt ttt 

4144 014244 INLINE <XMATC:> 

4145 014244 XMATC : 

4146 014264 INLINE <SCOPE> 

4147 014244 000004 SCOPE 

4148 014246 LET STIMES := #20 ; ITERATION COUNT 

4149 014246 012737 000020 000404 MOV «#20, $TIMES 
4150 014254 LET COUNT := TMATC GET TEST COUNT 

4151 014254 013737 015150 000466 Mov _—sTMATC, COUNT 
4152 014262 LET TSTCAS := #TMATC+2 ;POINT TO FIRST TEST CASE 

4158 014262 012737 015152 000542 MOV —s#TMATC +2, TSTCAS 


;REPEAT 
4155 014270 INLINE <$5045:> 
4156 014270 $5045: 


SEQ 0099 


+ 
4159 ; GET TEST DATA FROM TABLE 
4160 al 


4162 014270 LET RO := TSTCAS 

4163 014270 013700 000542 MOV TSTCAS ,RO 
4164 014274 LET DATAOO := (RO)+ :OBJ.LEN 

4165 014274 012037 000560 MOV (RO) + ,DATAOO 
4166 014300 LET DATAO1 := (RO) OFFSET 

4167 014300 011037 000562 MOV (RO) ,DATAO1 


3; 
4170 ; SET UP THE GPR'S 
4171 fe 


4173 014304 LET RO := #70 ;SRC.LEN 

4174 014304 012700 000070 Mov —«-#70,RO 
4175 014310 LET RI := #BUFF1 ;SRC.ADR 

4176 014310 012701 061166 MOV = ABUFF1,R1 
4177 014314 LET R2 := DATAOO 

4178 014314 013702 000560 MOV — DATAOO,R2 
4179 014320 LET R3 := #BUFF2 ;0BJ.LEN | 

4180 014320 012703 061266 MOV - ABUFF2.R3 
4181 014324 INLINE <BIT #81700, COUNT> 

4182 014324 032737 000001 000466 BIT #81 TOO, COUNT 
4183 014332 IFCOND EQ THEN 

4184 014332 001003 BNE $50456 
4185 014334 LET R4 := #0 

4186 014334 005004 CLR RG 

4187 014336 LET RS := #0 

4188 014336 005005 CLR RS 

4189 014340 ELSE 

4190 014340 000404 BR $50457 
4191 014342 $50456: 

4192 014342 LET R4 := #177777 

4193 014342 012704 177777 MOV «#177777. RG 


an 
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4194 014346 LET RS := #177777 

4195 014346 012705 177777 . MOV #177777 ,R5 
4196 014352 ENDIF 

4197 014352 $50457: 


SEQ 0100 


se 
4200 ; SET UP THE BUFFERS 
4201 a 


4203 014352 LET BFADRS := #BUFFI 

4204 014352 012737 061166 000540 MOV #BUF F 1, BF ADRS 

4205 014360 CALL SETBUF 

4206 014360 004737 055410 JSR PC, SE TBUF 

4207 014364 LET BFADRS := MBUFF2 

4208 014364 012737 061266 000540 MOV #BUF F 2 ,BF ADRS 

4209 014372 CALL CLRBUF 

4210 014372 004737 055346 JSR PC, CLRBUF 

4211 014376 IF DATAO1 LO #70 THEN 

4212 014376 023727 000562 000070 CMP DATAO1 ,#70 
0144 103015 BHIS $50460 

4214 014406 LET R1 := R1 + DATAO1 

4215 014406 063701 000562 ADD DATAQ1,R1 

4216 014412 REPEAT 

4217 014412 $50461: 

4218 014412 INLINE <CLRB (R1)+> 

4219 014412 105021 CLRB (R1)+ 

4220 014414 LET TEMPO := #BUFF1 + RO 

4221 014414 012737 061166 000474 MOV #BUF F 1, TEMPO 

4222 014422 060037 000474 ADD RO, TEMPO 

4223 014426 UNTIL R1 EQ TEMPO 

4224 014426 sa pbs 000474 CMP R1, TEMPO 


BNE $50461 
4226 014434 LET R1 := ABUFFI sRESTORE R1 
4227 014434 012701 061166 MOV #BUFF1,R1 
4228 014440 ENDIF 
4229 014440 $50460: 


e¢ 
oSes ; SET UP EXPECTED GPR'S AND CONDITION CODES 
34 - 


4235 014440 LET RO.EXP := RO 

4236 014440 010037 000522 MOV RO,RO.EXP 
4237 014444 LET R1.EXP := R1 

4238 014444 010137 000524 MOV R1,R1.EXP 
4239 014450 LET R2.EXP := R2 

4240 014450 010237 000526 MOV R2,R2.EXP 
4241 014454 LET R3.EXP := R3 

4242 014454 010337 000530 MOV R3,R3.EXP 
4243 014460 LET R4.EXP := R4 

4244 014460 010437 000532 MOV R4,R4.EXP 
4245 014464 LET R5.EXP := R5 

4246 014464 010537 000534 MOV RS.R5.EXP 
4247 014470 IF DATAOO HI #0 THEN 

4248 014470 005737 000560 TST DATAOO 
4249 014474 101432 BLOS $50462 


an 
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014574 


010037 
163737 


023737 
103007 
005037 


010037 
060137 


000412 


010037 
163737 
010137 
063737 


005737 
013737 
042737 


076045 


613737 
042737 


023737 
001402 


004737 


020037 
001402 


000522 
177776 
177760 


177776 
177760 
000516 


056274 


000522 
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000474 
000560 


000522 


000524 


000520 
000520 


000516 
000516 
000520 


LET TEMPO 


IF TEMPO L 


:= RO = DATAO 


O DATAOO THEN 


LET RO.EXP := #0 


LET R1 


ELSE 


LET RO 


LET R1 


ENDIF 
ENDIF 
INLINE <TST 
LET CC.EXP := 
LET CC.EXP := 


-EXP := RO + R1 


-EXP := RO = DATAO1 
~EXP := R1 + DATAO1 
RO.EXP> 

PSW 


CC.EXP CLR.BY #177760 


,¢ 
; DO THE CIS INSTRUCTION 


INLINE <MATC> 


LET CC := PSW 
LET CC := CCC 


LR.BY #177760 


IF CC NE CC.EXP THEN 


CALL ERROR 
ENDIF 


IF RO NE RO.EXP THEN 


$50463: 


$50464: 
$50462: 


i+ 
; CHECK CONDITION CODES AND GPR*S FOR CORRECT RESULTS 


$50465: 


MOV 
BIC 


MATC 


SEQ 0101 


RO, TEMPO 
DATAO1, TEMPO 


TEMPO ,DATAOO 
$50463 


RO.EXP 


RO,R1.EXP 
R1,R1.EXP 


$50464 


RO,RO.EXP 
DATAO1 ,RO.EXP 
R1,R1.EXP 
DATAO1 ,R1.EXP 


RO.EXP 
PSW,CC.EXP 
#177760,CC.EXP 


PSW.CC 
#177760,CC 


CC,CC.EXP 
$50465 


PC ,ERROR 


RO,RO.EXP 
$50466 


On 
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CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$50466: 
IF R1 NE R1.EXP THEN 
020137 000524 R1,R1.EXP 
001402 


$50467 
CALL ERROR 
004737 056274 PC ,ERROR 


ENDIF 
$50467: 
’ IF R2 NE R2.EXP THEN 
020237 000526 R2.R2.EXP 
$50470 


001402 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$50470: 
IF R3 NE R3.EXP THEN 
020337 000530 R3,R3.EXP 
$50471 


001402 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
£50471: 
IF RG NE R4.EXP THEN 
020437 000532 R4,.R4.EXP 
001402 $50472 
CALL ERROR 
004737 056274 PC ERROR 
ENDIF 


neneerk mene IF RS NE RS.EXP THEN aye 
~EXP 

001402 $50473 

CALL ERROR 


004737 056274 PC ERROR 


ENDIF 
$50473: 
LET TSTCAS := TSTCAS + #4 
062737 000004 #4, TSTCAS 
LET COUNT := COUNT - 41 
005337 000466 COUNT 
;UNTIL COUNT EQ 40 
IF COUNT NE #0 THEN 
005737 000466 


COUNT 

001402 $50474 
INLINE <JMP $5045> 

000137 014270 $5045 


ENDIF 
014754 


22 
; DO ONE INLINE CASE = MATC] 





an 
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014754 
012737 061166 
004737 055410 
012737 061266 
004737 055410 
012700 061166 


105020 


020027 061226 
001374 


004737 055330 
076145 
015172 
015176 
013737 177776 
032737 000017 
001402 
004737 056274 


020027 000030 
001402 


004737 056274 


020127 061226 
001402 


004737 056274 


005702 
001402 


004737 056274 


REREERRERE 
NOUSWI-O 


000540 


000540 


LET BFADRS := BUFF 
CALL SETBUF 
LET BFADRS := A#BUFF2 
CALL SETBUF 
LET RO := ABUFFI 
REPEAT 
INLINE <CLRB (RO) +> 
UNTIL RO EQ #ABUFF1+4#40 


CALL CLRREG 

INLINE <MATCI> 

INLINE <.WORD TMATCI> 

INLINE <.WORD TMATCI+4> 

LET CC := PSW 

I" INE <BIT 

IFCOND NE THEN 
CALL ERROR 

ENDIF 

IF RO NE #30 THEN 


#17,CC> 


CALL ERROR 
ENDIF 
IF R1 NE #BUFF1+440 THEN 


CALL ERROR 
ENDIF 
IF R2 NE #0 THEN 


CALL ERROR 
ENDIF 


M 8 
C MACY11 — 14-MAR=80 08:04 PAGE 87 


7SRC.LEN = 40 


$50475: 


$50476: 


SEQ 0103 


#BUF F 1 ,BF ADRS 
PC, SE TBUF 
MBUF F 2 ,BF ADRS 
PC, SE TBUF 
BUFF 1,RO 


(RO) + 


RO, ABUF F 1+4#40 
$50475 


PC,CLRREG 


TMATCI 
TMATCI+4 
PSW,CC 
#17,CC 
$50476 
PC ERROR 


RO, #30 
$50477 


PC,,ERROR 


R1 , ABUF F 1+440 
$50500 


PC ,ERROR 


Re 
$50501 
PC,ERROR 





On 
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4418 015104 

4419 015104 

4420 015104 005703 

4421 015106 001402 

4422 015110 

4423 015110 004737 056274 

4424 015114 

4425 015114 

4426 015114 

4427 015114 005704 

4428 015116 001402 

4429 015120 

4430 015120 004737 056274 

4431 015124 

4432 015124 

4433 015124 

4434 015124 005705 

4435 015126 001402 

4436 015130 

4437 015130 004737 056274 
38 015134 

4439 015134 

4440 015134 

4441 015134 005702 

4442 015136 001402 

4443 015140 

4444 015140 004737 056274 

4445 015144 

4446 015144 

4447 015144 

4448 015144 000137 015202 

44u9 

4450 

4451 

4452 

4453 

4454 015150 000004 

4455 

4456 015152 000000 

4457 015154 000010 

4458 

4459 015156 000074 

ert 0151 000010 

4462 015162 000040 

4463 015164 000020 

4464 

4465 015166 000040 

4466 015170 000050 

4467 

4468 

4469 015172 70 

4470 015174 061166 

4477 015176 10 

4472 0152 061266 


C MACY11 30A(1052) 
MATC 


IF R3 NE 


CALL 
ENDIF 
IF R4& NE 


CALL 
ENDIF 
IF R5 NE 


CALL 
ENDIF 
IF R2 NE 


CALL 
ENDIF 
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#0 THEN 


ERROR 


#0 THEN 


ERROR 


#0 THEN 


ERROR 


#0 THEN 


ERROR 


INLINE <JMP 


a 
; TABLE OF TEST 


TMATC: 


TMATCI: 


. WORD 


. WORD 
.» WORD 


- WORD 
- WORD 


- WORD 
- WORD 


- WORD 
- WORD 
- WORD 
- WORD 
. WORD 


DATA FOR MATC 


70 
BUF F 1 
10 
-WORD BUFF2 


$50501: 


$50502: 


$50503: 


$50504: 


$50505: 


74 OF TEST CASES FOR MATC 
70BJ.LEN 
OFFSET 

: TEST CASE NUMBER 2 

;TEST CASE NUMBER 3 


TEST CASE NUMBER 4 


TEST CASE FOR INLINE 


R3 
$50502 
PC ,ERROR 


R4 
$50503 
PC,ERROR 


RS 
$50504 
PC,ERROR 


R2 
$50505 
PC ERROR 


INTST 


SEQ 0104 


an 
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4474 SAITO II IOIOIUIUIIOIIIIIUI TR Ti iititt 


4475 *SBTTL IN/ERRUPTABILITY SUBTEST 


4476 FL AEE REE ERE EERE RE REE EEE REE KEE 
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+ 
: THIS SUBTEST VERIFIES THAT A CIS INSTRUCTION CAN BE 
4480 : SUSPENDED (USING CONSOLE TERMINAL PRINTER INTERRUPT). 


4483 015202 INLINE <INTST:> 

4484 015202 INTST: 

4485 015202 INLINE <SCOPE> 

4486 015202 000004 SCOPE 

4487 015204 LET $TIMES := #1 : ITERATION COUNT 

4488 015204 012737 000001 000404 MOV #1,$TIMES 
4489 015212 LET ERR := #2 SET UP FOR ERROR MSG 

4490 015212 012737 000002 000550 MOV #2,ERR 
4491 015220 LET SAVPSW := PSW 

4492 015220 013737 177776 000612 MOV PSW, SAVPSW 
4493 015226 LET PSW := #PR7 

4494 015226 012737 000340 177776 MOV #PR7 ,PSW 
4495 015234 LET TEMPO := #0 SUSPENDED FLAG,1=INST SUSPENDED 

4496 015234 005037 000474 CLR TEMPO 
4497 015240 IF INTPAS EQ #0 THEN 

4498 015240 ate 000460 TST INTPAS 


BNE $50506 
4500 015246 LET DELAY := #13000 
4501 015246 012737 013000 000470 MOV #13000 ,DELAY 
4502 015254 LET INTPAS := #1 
4503 015254 012737 000001 000460 MOV #1, INTPAS 
4504 015262 ENDIF 
4505 015262 $50506: 
4506 015262 LET TEMP4 := DELAY 
4507 015262 013737 000470 000504 MOV DELAY, TEMP4 


2+ 
4510 : SET UP TP VECTOR 
4511 77 


4513 015270 LET TPS := #0 MAKE SURE INTERRUPT ENABLE IS OFF 

4514 015270 005037 177564 CLR TPS 

4515 015274 LET TPVEC := #TPSRVC 

4516 015274 012737 015532 000064 MOV #TPSRVC, TPVEC 
4517 015302 LET TPVEC+2 := #PR7 

4518 015302 012737 000340 000066 MOV #PR7, TPVEC+2 


4520 4 
4521 : SET UP FOR MOVTC INST 
4522 = 


5310 CALL SAVREG 3 SAVE RO-R5 

5310 004737 055562 JSR PC, SAVREG 
5314 REPEAT 

5314 $50507: 

5314 LET TEMP1 := TEMP4 

5314 013737 000504 000476 MOV TEMPS , TEMP 1 
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0 
015472 
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012700 
010002 
012701 
010103 
005004 
012705 


032737 
001001 
000773 


005037 
005037 
012737 
012737 


005337 
001375 
076032 
023727 
001404 
023727 
002331 
023727 
001403 
004737 
000411 


005737 
001006 


013737 
062737 


13:37 


002000 


064102 


061366 


000200 


000504 
000474 


056274 


000636 


000504 
001000 


MACY11 30A(1052) 


INTERRUPTABILITY SUBTEST 


LET RO := #2009 
MOV 
LET R2 := RO 
MOV 
LET R1 := A#SPACE 
MOV 
LET R3 := R1 
MOV 
LET R4 := #0 3NO FILL REQUIRED Cun 
L 
LET RS := #TRANS 
MOV 
WHILE #BITO7 NOTSETIN TPS DO 
$50510: 
177564 BIT 
BNE 
ENDDO 
$50511: 
LET TPB := 40 ;SEND CHARACTER TO THE XMIT meni 1 
L 
LET TPB := #0 ;ALLOW FOR DOUBLE BUFFERING cun 
LET TPS := #BIT6 ;SET INTERRUPT ENABLE 
177564 MOV 
LET PSwW := #PRO ;ALLOW INTERRUPTS 
177776 MOV 
INLINE <LOOP2:> DELAY... 
LOOP2: 
INLINE <DEC Q#TEMP1> hes 
INLINE <BNF LOOP2> 
BNE 
INLINE <MOVTC> 
MOVTC 
UNTIL TEMPO EQ #1 OR TEMP4 LT #40 
000001 CMP 
BEQ 
000040 CMP 
BGE 
$50512: 
IF TEMPO NE #1 THEN 
000001 CMP 
BEQ 
CALL ERROR 7PSW BITO8 DID NOT GET SET io 
ELSE 
BR 
$50513: 
IF $PASS EQ 40 THEN 
TST 
BNE 
LET DELAY := TEMP4 + #1000 
000470 MOV 
000470 ADD 


ENDIF 


. *¥ 
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#2000 ,RO 
RO,R2 
#SPACE ,R1 
R1,R3 

R4 

ATRANS ,R5 
#B1T07,TPS 
$50511 
$50510 


TPB 

TPB 
#BIT6,TPS 
#PRO,PSW 


@4TEMP1 
LOOP2 


TEMPO, #1 
$5051 
TEMPS , #40 
$50507 
TEMPO, #1 
$50513 

PC ERROR 
$50514 


SPASS 
$50515 


TEMP4 ,DELAY 
#1000 ,DELAY 


SEQ 0106 


D9 
C MACY11 30A(1052)_ 14=MAR=80 08:04 PAGE 91 


CJKDGA, KEF11-8 CIS DIAGNOSTI 

CJKDGA.P11 12=MAR-80 13:37 INTERRUPTABILITY SUBTEST SEQ 0107 
4586 015472 " $50515: 
4587 015472 ENDIF 
4588 015472 $50514: 
4589 015472 LET PSW := #PR7 
4590 015472 012737 000340 177776 MOV #PR7,PSW 
4591 015500 LET TPVEC := #TPVEC+2 
4592 015500 012737 000066 000064 MOV ATPVEC+2, TPVEC 
4593 015506 LET TPVEC+2 := 40 ;RESTORE CONSOLE TRAP CATCHER 
4594 015506 005037 000066 CLR TPVEC+2 
4595 015512 LET TPS := #0 ;MAKE SURE INTERRUPT ENABLE IS OFF 
4596 015512 005037 177564 CLR TPS 
4597 015516 CALL RESREG 
4598 015516 004737 055614 JSR PC ,RESREG 
4599 015522 LET PSw := SAVPSW 
4600 015522 013737 000612 177776 MOV SAVPSW,PSW 
4601 015530 INLINE <BR ILLTST> ;BR AROUND INT SERVICE RIN 
4602 015530 000421 BR ILLTST 
4603 
4604 5+ 
4605 : TP INTERRUPT SERVICE ROUTINE 
4606 :- 
4607 
4608 015532 INLINE <TPSRVC:> 
4609 015532 TPSRVC: 
4610 015532 LET TPS := 40 ; TURN OFF INTERRUPT ENABLE 
4611 015532 005037 177564 CLR TPS 
4612 015536 LET TEMPS := 2(SP) 
4613 015536 016637 000002 000506 MOV 2(SP), TEMPS 
4614 015544 IF #BIT8 SETIN TEMPS THEN 
4615 015544 032737 000400 000506 BIT #B1T8, TEMPS 
4616 015552 001404 BEQ $50516 
4617 015554 LET TEMPO := #1 : INST WAS SUSPENDED 
4618 015554 012737 000001 000474 MOV #1, TEMPO 
4619 015562 ELSE 
4620 015562 000403 BR $50517 
4621 015564 $50516: 
4622 015564 LET TEMP4 := TEMP4 - #30 ;DECREMENT DELAY COUNTER AND TRY AGAIN 
4623 015564 162737 000030 000504 SUB #30, TEMPS 
4624 015572 ENDIF 
4625 015572 $50517: 
4626 015572 INLINE <RTI> 
4627 015572 000002 RTI 
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4629 FERRARA RARER AREER EERE RERRE AKER ERE EERE REE 
4630 -SBTTL ILLEGAL OPCODE SUBTEST 
4631 PERAK RERERAEREREREERERRERER EE 
4632 
4633 = 
4634 3 THIS SUBTEST VERIFIES THAT AN ILLEGAL CIS CLASS OPCODE 
au : (ILLOP=76033) CAUSES A RESERVED INSTRUCTION TRAP (TRAP 10) 
4637 
4638 015574 INLINE <ILLTST:> 
4639 015574 ILLTST: 
4640 015574 INLINE <SCOPE> 
4641 015574 000004 SCOPE 
4642 015576 LET STIMES := #20 ; ITERATION COUNT 
4643 015576 012737 000020 000404 MOV #20,$TIMES 
4644 015604 LET ERRFLG := 40 sRESET ERROR FLAG 
4645 015604 005037 000454 CLR ERRFLG 
4646 015610 LET ERR := #3 ;ERROR MSG # 
4647 915610 012737 000003 000550 MOV #3,ERR 
4648 015616 LET SAVPSW := PSW 
4649 015616 013737 177776 000612 MOV PSW, SAVPSW 
4650 015624 LET PSW := #PR7 sLOCK OUT INTERRUPTS 
4651 015624 012737 000340 177776 MOV #PR7 ,PSW 
4652 015632 LET RESVEC := ARESRIN 
4653 015632 012737 015660 000010 MOV #RESRTN,RESVEC 
4654 015640 INLINE <ILLOP> ;DO ILLEGAL CODE 
4655 015640 076033 ILLOP 
4656 015642 CALL ERROR DIDNT TRAP, ERROR 
4657 015642 004737 056274 JSR te ERROR 
4658 015646 LET RESVEC := #ILLRES sRESTORE RESERVED INSTRUCTION TRAP VECTOR 
4659 015646 012737 055314 000010 MOV MILLRES ,RESVEC 
4660 015654 INLINE <JMP CIS4END> sMODULE EXIT 
4661 015654 000137 015716 JMP CIS4END 
4662 
4663 sé 
4664 : TRAP HANDLER 
4665 :- 
4666 
4667 015660 INLINE <RESRTN:> 
4668 015660 RESRTN: 
4669 015660 IF ERRFLG EQ #40 THEN 
4670 015660 005737 000454 TST ERRFLG 
4671 015664 001004 BNE $50520 
4672 915666 POP TEMPO, TEMPO sREMOVE PC,PSW PUSHED BY TRAP 
4673 015666 012637 000474 MOV (SP) +, TEMPO 
4674 015672 012637 000474 MOV (SP) +, TEMPO 
4675 015676 ENDIF 
4676 015676 $50520 
4677 015676 LET ERRFLG := 40 ;ENSURE ERROR FLAG IS RESET 
4678 015676 005037 000454 CLR ERRFLG 
4679 015702 LET PSW := SAVPSW 
4680 015702 013737 000612 177776 MOV SAVPSwW PS 
4681 015710 LET RESVEC := #ILLRES ZRESTORE RESERVED INSTRUCTION TRAP VECTOR 
rrr 3 015710 012737 055314 000010 MOV #ILLRES,RESVEC 
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4685 


716 INLINE <CIS4END:> 
716 CIS4END: 
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4690 : FREER ERE AAR RARER EERE ER EREEEREREKEAERE EERE 
4691 Z OTTTITITITILITI TTL T TTL ELLE LEE E EEE EEE EEL 
4692 44 
2? : ciss MODULE 
4695 : THIS MODULE TESTS THE ARITHMETIC CONVERT INSTRUCTIONS FOR 
469% : PACKED, NUMERIC, AND LONG INTEGER DATA TYPES: CVTLP, CVTLN, 
rr 44 > CVTPL, CVTNL, CVTPN, AND CVT 
4699 Ma cing taemnaniaeaee ee 
4700 DU RRR REE REE EEE EERE EERE EERE EKER RERER EERE 
4701 
4702 
4703 
4704 
4705 
4706 .SBITL CIS5 INITIALIZATION 
4707 ee MARAE RESRAAALASZALALAESALELASESE SSS ESSE SES ER SSR RRC R RES ERSE SESE SS 
4708 : 
ris : CIS5 INITIALIZATION 
4711 DDIM EEO SEIU SSIS IDIOIIIISISIIDIOISIIIIIOIIISISISISOIIIIIE EEE 
4712 
4713 zI1F SWR<5:0> ARE CLEARED OR IF SWR<1> IS SET THEN EXECUTE 
rik ; THE CISS MODULE; OTHERWISE, SKIP TO THE NEXT CIS MODULE. 
4716 015716 INLINE  <SCOPE> 
hal 015716 000004 SCOPE 
4719 015720 LET TEMPO := aSWR CLR.BY #177700 
4720 015720 017737 162502 000474 MOV @SWR, TEMPO 
4721 015726 042737 177700 000474 BIC #177700, TEMPO 
4722 015734 IF TEMPO NE #0 THEN 
4723 015734 005737 000474 TST TEMPO 
4724 015740 001406 BEQ $50521 
4725 015742 IF #B1T1 NOTSETIN TEMPO THEN 
4726 015742 032737 000002 000474 BIT #111 TEMPO 
4727 015750 001002 BNE 50522 
4728 015752 INLINE <JMP CISSEND> 
4729 015752 000137 031700 JMP —- CISSEND 
4730 015756 ENDIF 
4731 015756 $50522: 
4732 015756 ENDIF 
4733 015756 $50521: 
4734 015756 LET CTL := #5 :CONTROL CHIP NUMBER 
4735 015756 012737 000005 000544 MOV #5.CTL 
4736 015764 LET ERRFLG := #0 Z INITIALIZE ERROR FLAG 
4737 015764 005037 000454 CLR ERRFLG 
4738 015770 LET PSW := #340 
4739 015770 012737 000340 177776 MOV #340,PSwW 
4740 015776 LET ERR := #1 
4741 015776 012737 000001 000550 MOV #1 ERR 
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4742 -SBTTL CVTLP 


4743 SSIS IIIUIDIOIDIOIUIIIISISIIISIIIOIIUIIOIIOIOIIIIUIIUIINIIOIDIUI I On tt ttinnk 


ret ; CVTLP TEST 

4747 PETTITT Ti sti titi tisti iti ii itt titi titi ttt ti ttt tt titi ttt ttt tit t ttt tt 

4748 016004 TNLINE <XCVTLP:> 

4749 016004 XCVTLP: 

4750 016004 INLINE <SCOPE> 

4751 016004 000004 SCOPE 

4752 016006 LET STIMES := #20 ; ITERATION COUNT 

4753 016006 012737 000020 000404 MOV #20,$TIMES 
4754 016014 LET COUNT := TCVTLP :GET TEST COUNT 

4755 016014 013737 017314 000466 MOV TCVTLP, COUNT 
4756 016022 LET TSTCAS := ATCVTLP+2 ;POINT TO FIRST TEST CASE 

4757 016022 012737 017316 000542 MOV MTCVTILP+2,TSTCAS 


;REPEAT 
4759 016030 INLINE <$5077:> 


i? 
4763 ; GET TEST DATA FROM TABLE 


4766 016030 LET RO := TSTCAS 

4767 016030 013700 000542 MOV TSTCAS ,RO 
4768 016034 LET DATAOO := (RO)+ :DST.DSCR 

4769 016034 012037 000560 MOV (RO) +,DATAOO 
4770 016040 LET DATAO1 := (RO)+ ;LONG INTEGER HI 

4771 016040 012037 00056? MOV (RO) +, DATAO1 
4772 016044 LET DATAQ2 := (RO)+ ;LONG INTEGER LO 

4773 016044 012037 000564 MOV (RO) + ,DATAO2 


s@ 
4776 ; PUT EXPECTED RESULTS INTO DS.EXP AND CC.EXP 


4779 016050 CALL CLRDSB ZCLEAR DECIMAL STRING QUFFER AREAS 

4780 016050 004737 055520 JSR PC, CLRDSB 

4781 016054 LET R2 := DATAO!1 

4782 016054 013702 000562 MOV DATAO1,R2 

4783 016060 LET R3 := DATAO2 

4784 016060 013703 000564 MOV DATAO2, R3 

4785 016064 CALL CVTLI CONVERT LONG INTEGER TO AN INTERMEDIATE F 

4786 016064 004737 030362 JSR PC, tn Ll 

4787 016070 LET CC.EXP := 40 

4788 016070 005037 000520 CLR CC.EXP 

4789 016074 LET DSLEN2 := DATAOO CLR.BY #177740 :GET DST.LEN 

790 016074 013737 000560 000514 MOV DATAOO,DSLEN2 
102 042737 177740 000514 BIC #177740, DSLEN2 
0 IF DSLEN2 EQ #0 THEN :DST.LEN = 0 

0 005737 000514 TST DSLEN2 

4 001014 BNE $3058 

6 LET CC.EXP := CC.EXP SET.BY #ZBIT 

6 052737 000004 000520 BIS #7BIT.CC.EXP 

4 LET DS.EXP :B= #14 
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4798 016124 112737 000014 062536 MOVB #14 ,DS.EXP 
4799 016132 IF DSLEN1 HI #0 THEN 
4800 016132 005737 000512 TST DSLEN1 
4801 016136 101403 BLOS $50524 
4802 016140 LET CC.EXP := CC.EXP SET.BY #VBIT 
4803 016140 052737 000002 000520 BIS #VBIT,CC.EXP 
4804 016146 ENDIF 
4805 016146 $50524: 

‘306 016146 ENDIF 
4807 016146 $50523 
4808 016146 IF DSLEN2 NE #0 THEN :DST.LEN > 0 
4809 016146 005737 000514 TST DSLEN2 
4810 016152 001577 BEQ $50525 
4811 016154 IF DSLENT EQ #0 THEN :SRC.LEN = 0 
4812 016154 005737 000512 TST DSLEN1 
4813 016160 001017 BNE $50526 
4814 016162 LET TEMPO := DSLEN2 
4815 016162 013737 000514 000474 MOV DSLEN2, TEMPO 
4816 016170 INLINE <ASR_ TEMPO> 
4817 016170 006237 000474 ASR TEMPO 
4818 016174 LET RO := #DS.EXP + TEMPO 
4819 016174 012700 062536 MOV #DS.EXP,RO 
4820 016200 063700 000474 ADD TEMPO ,RO 
4821 016204 LET (RO) :B= #14 
4822 016204 112710 000014 MOVB #14, (RO) 
4823 016210 LET CC.EXP := CC.EXP SET.BY #ZBIT 
4824 016210 052737 000004 000520 BIS #ZBIT,CC.EXP 
4825 016216 ELSE 
4826 016216 000555 BR $50527 
4827 016220 $50526: 
016220 IF DSLEN2 EQ DSLEN1 THEN :DST.LEN = SRC.LEN > 0 

4829 016220 023737 000514 000512 CMP DSLEN2 ,DSLEN1 
4830 016226 001010 BNE $50530 
4831 016230 LET R1 := #DSBUF1 + #10. - DSLEN1 SRC POINTER 

32 016230 012701 062370 MOV #DSBUF 1 ,R1 
4833 016234 062701 000012 ADD #10. ,R1 
4834 016240 163701 000512 SUB DSLEN1,R1 
4835 016244 LET R2 := #DS.EXP :DST POINTER 
4836 016244 012702 062536 MOV #DS.EXP,R2 
4837 016250 ENDIF 
4838 016250 $50530: 
4839 016250 IF DSLEN2 LT DSLEN1 THEN :DST.LEN < SRC.LEN 
4840 016250 023737 000514 000512 CMP DSLEN2 ,DSLEN1 
4841 016256 002016 BGE $50531 
4842 016260 LET R1 := #DSBUF1 + #10. = DSLEN2 
4843 016260 012701 062370 MOV #DSBUF 1 .R1 
4844 016264 062701 000012 ADD #10. ,R1 
4845 016270 163701 000514 SUB DSLEN2,R1 
4846 016274 LET R2 := #DS.EXP 
4847 016274 012702 062536 MOV #0S.EXP,R2 
4848 016300 LET CC.EXP := CC.EXP SET.BY #VBIT 
4849 016300 052737 000002 000520 BIS #VBIT,CC.EXP 
4850 016306 LET DSLEN1 := DSLEN2 
4851 016306 013737 000514 000512 MOV DSLEN2 ,DSLEN1 
4852 016314 END IF 


4853 016314 $50531: 
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4854 016314 IF DSLEN2 GT DSLEN1 THEN :DST.LEN > SRC.LEN 
4855 016314 023737 000514 000512 CMP DSLEN2,DSLEN1 
4856 016322 003426 BLE $50532 
4857 016324 LET TEMPO := DSLEN1 
4858 016324 013737 000512 000474 MOV DSLEN1, TEMPO 
4859 016332 INLINE <ASR- TEMPO> 
4860 016332 006237 000474 ASR TEMPO 
4861 016336 LET TEMP1 := DSLEN2 
4862 016336 013737 000514 000476 MOV DSLEN2, TEMP1 
4863 016344 INLINE <ASR- TEMP1> 
4864 016344 006237 000476 ASR TEMP1 
4865 016350 LET R2 := #DS.EXP + TEMP1 = TEMPO 
4866 016350 012702 062536 MOV #DS.EXP,R2 
4867 016354 063702 000476 ADD TEMP1 ,R2 
4868 016360 163702 000474 SUB TEMPO.R2 
4869 016364 LET R1 := #DSBUF1 + 410. = DSLEN1 zSRC POINTER 
4870 016364 012701 062370 MOV #DSBUF1,R1 
4871 016370 062701 000012 ADD #10.,R1 
4872 016374 163701 000512 SUB DSLEN1,R1 
4873 016400 ENDIF 
4874 016400 $50532: 
4875 LOAD REMAINING DIGITS INTO DS.EXP 
4876 016400 iF DSLEN] HI #1 THEN 
4877 016400 023727 000512 000001 CMP DSLEN1,#41 
4878 016406 101431 BLOS  $50533 
4879 016410 IF #1 NOTSETIN DSLEN1 THEN 
4880 016410 032737 000001 000512 BIT #1,DSLEN1 
4881 016416 001003 BNE $505 34 
4882 016420 LET (R2)+ :B= (R1)+ :OQUTPUT TO DEST. BUFFER 
4883 016420 112122 MOVB _— (R1)+, (R2)+ 
4884 016422 LET DSLEN1 := DSLEN1 - #1 
4885 016422 005337 000512 DEC DSLEN1 
4886 016426 ENDIF 
4887 016426 $50534: 
4888 016426 LET RO := #0 :USE RO TO ASSEMBLE DATA 
4889 016426 005000 CLR RO 
4890 016430 WHILE DSLEN1 HI #1 DO 
4891 016430 $50535: 
4892 016430 023727 000512 000001 CMP DSLEN1,41 
4893 016436 101415 BLOS  $50536 
4894 016440 LET RO :B= (R1)+ 
4895 016440 112100 MOVB _— (R1)+, RO 
48% 016442 INLINE <ASH #4,RO> 
4897 016442 072027 000004 ASH #4,RO 
4898 016446 LET TEMPO :B= RO OR (R1)+  ;OQUTPUT TO DST. BUFFER 

016446 110037 000474 MOVB RO, TEMPO 
4900 016452 152137 000474 BISB (Ri) +, TEMPO 
4901 016456 LET (R2)+ :B= TEMPO 
4902 016456 113722 000474 MOVB _—* TEMPO, (R2)+ 
4903 016462 LET DSLEN1 := DSLEN1 = #2 
4904 016462 162737 000002 000512 SUB #2,DSLEN1 
4905 016470 ENDDO 
4906 016470 000757 BR $50535 
4907 016472 $50536: 
4908 016472 ENC IF 
4909 016472 $50533: 
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4910 016472 LET RO :B= (R1)+ 

4911 016472 112100 MOVB (R1)+,RO 

4912 016474 INLINE <ASH #4,R0> 

4913 016474 072027 000004 ASH #4,RO0 

4914 016500 IF DATAOO HIS #70000 THEN ;*** UNSIGNED PACKED *** 

4915 01 e's th 000560 070000 CMP DATAOO ,470000 


6506 BLO $50537 
4917 016510 LET (R2) :B= RO OR #17 
110012 MOVB RO, (R2) 
4919 016512 152712 000017 BISB = #17, (R2) 
4920 016516 ELSE 
4921 016516 000415 BR $50540 


$50537: 
4923 016520 IF SIGNO EQ #0 THEN ;*** SIGNED PACKED *** 
4924 016520 005737 000446 TST SIGNO 
4925 016524 001004 BNE $50541 
4926 016526 LET (R2) :B= RO OR #14 :SIGN IS + 
4927 016526 110012 MOVB RO, (R2) 
4928 016530 152712 000014 BISB #14, (R2) 
4929 016534 ELSE 
4930 016534 000406 , BR $50542 
4931 016536 $50541: 
4932 016536 LET (R2) :B= RO OR #15 :SIGN IS = 
110012 MOVB _—RO, (R2) 
4934 016540 152712 000015 BISB =: #15, (R2) 
4935 016544 LET CC.EXP := CC.EXP SET.BY #NBIT 
4936 016544 052737 000010 000520 BIS #NBIT,CC.EXP 
4937 016552 ENDIF 
4938 016552 $50542: 
4939 016552 ENDIF 
4940 016552 $50540: 
4941 016552 ENDIF 
4942 016552 $50527: 
4943 016552 ENDIF 
4944 016552 $50525: 
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. + 
4947 ; SET UP GPR'S AND EXPECTED GPR'S. 
4948 := 


16552 LET RO := DATAOO 
16552 013700 000560 MOV DATAOO RO 
16556 LET R1 := ADS.DST DST. ADR 

16556 012701 062474 MOV #0S.DST.R1 
6562 LET R2 := DATAQ1 

16562 013702 000562 MOV DATAO1 .R2 
16566 LET R3 := DATAO2 

16566 013703 000564 MOV DATAO2 ,R3 
16572 IF #1 SETIN COUNT THEN 

16572 032737 000001 000466 BIT #1, COUNT 
by rs 001405 

1 
1 
1 
1 


BEQ $50543 
6602 LET R& := #177777 
6602 012704 177777 MOV #177777 RS 
6606 LET RS := #177777 
6606 012705 177777 MOV #177777 .RS 
6612 ELSE 


. ¥ 
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000402 BR $50544 
$50543: 
LET R4 : 


005004 RG 
LET RS : 
005005 RS 


ENDIF 
$50544: 

LET RO.EXP : 

010037 RO,RO.EXP 
LET R1.EXP : 

010137 R1,R1.EXP 
LET R2.EXP : 

005037 R2.EXP 
LET R3.EXP := 

005037 R3.EXP 
LET R4&.EXP : 

010437 R4,R4.EXP 
LET RS.EXP := R5 

010537 R5,R5.EXP 


a 
: DO THE CIS INSTRUCTION 


INLINE <CVTLP> 
076077 


+ 
CHECK CONDITION CODES AND GPR'S FOR CORRECT RESULTS. 


LET CC := PSW 
013737 177776 000516 Psw.CC 
LET CC := CC CLR.BY #177760 
042737 177760 000516 #177760,CC 
‘ IF CC NE CC.EXP THEN : 
023737 000516 000520 CC,CC.EXP 
001402 $50545 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$50545: 
saat’ elena IF RO NE RO.EXP THEN See 
R xP 
001402 $50546 , 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$50546: 
020137 000524 IF R1 NE R1.EXP THEN 
001402 nb 


$5054 
CALL ERROR 
016722 004737 056274 PC ERROR 
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5022 016726 ENDIF 
5023 016726 $50547: 

5024 016726 IF R2 NE R2.EXP THEN 

5025 016726 020237 000526 CMP R2 Re. EXP 
5026 916732 001402 BEQ $5055 

5027 016734 CALL ERROR 

5028 016734 004737 056274 JSR PC,ERROR 
5029 016740 ENDIF 

5030 016740 $50550: 

5031 076740 IF R3 NE R3.EXP THEN 

5032 016740 020337 000530 CMP R3,R3.EXP 
5033 016744 001402 BEQ $50551 
5034 016746 CALL ERROR 

5035 016746 004737 056274 JSR PC ERROR 
5036 016752 ENDIF 

5037 016752 $50551: 

5038 016752 IF R4 NE R4.EXP THEN 

5039 016752 020437 000532 CMP R4,R4.EXP 
5040 016756 001402 BEQ $50552 
5041 016760 CALL ERROR 

5042 016760 004737 056274 JSR PC ERROR 
5043 016764 ENDIF 

5044 016764 $50552: 

5045 016764 IF RS NE RS.EXP THEN 

5046 016764 020537 000534 CMP R5S,R5S.EXP 
5047 016770 001402 BEQ $50553 
5048 016772 CALL ERROR 

5049 016772 004737 056274 JSR PC ERROR 
5050 016776 ENDIF 

5051 016776 $50553: 


thal 
5054 ; COMPARE THE EXPECTED DECIMAL STRING BUFFER 
epee ; WITH ACTUAL RESULTS. 


5058 016776 LET RO := #DS.DST 

5059 016776 012700 062474 MOV #DS.DST,RO 
5060 017002 LET R1 := #DS.EXP 

5061 017002 012701 062536 MOV #DS.EXP,R1 
5062 017006 LET ERRFLG := #0 

5063 017006 005037 000454 CLR ERRFLG 
5064 017012 WHILE RO NE #DS.DST+40 AND ERRFLG EQ #0 DO 

5065 017012 $50554: 

5066 017012 020027 062534 . CMP RO, #DS.DST+40 
5067 017016 001410 . BEQ $5055 

5068 017020 005737 000454 TST Seale 
5069 017024 001005 BNE $50555 
5070 017026 IFB (RO)+ NE (R1)* THEN 

5071 017026 122021 CMPB —s-_ (RO) +, (R1) + 
50 17030 $50556 
5073 017032 CALL ERROR 

5074 017032 004737 056274 : JSR PC ERROR 
5075 017036 ENDIF 

5076 017036 $50556: 

5077 017036 ENDDO 


s 
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5078 017036 000765 br $50554 
5079 017040 $50555: 

5080 017040 LET TSTCAS := TSTCAS + #6 

5081 017040 062737 000006 000542 ADD #6, TSTCAS 
5082 017046 LET COUNT := COUNT - #1 

5083 017046 005337 000466 DEC COUNT 
5084 ;UNTIL COUNT EQ 40 

5085 017052 IF COUNT NE #0 THEN 

5086 017052 005737 000466 : TST COUNT 
5087 017056 001402 BEQ $50557 
5088 017060 INLINE <JMP $5077> 

5089 017060 000137 016030 JMP $5077 

5090 017064 ENDIF 

5091 017064 $50557: 

5092 

5093 i+ 

5094 ; DO ONE INWII' CASE = CVTLPI 

5095 [= 

5096 

5097 017064 CALL CLRREG 

5098 017064 004737 055330 JSR PC, CLRREG 
5099 017070 CALL CLRDSB 

5100 017070 004737 055520 JSR PC.CLRDSB 
5101 017074 INLINE <CVTLPI> 

5102 017074 076177 CVTLPI 

5103 017076 INLINE <.WORD TCVLPI> 

5104 017076 017426 «WORD TCVLPI 
5105 017100 INLINE <.WORD TCVLPI+4> 

5106 017100 017432 WORD TCVLP1+4 
5107 017102 LET CC := PSwW 

5108 017102 013737 177776 000516 MOV PSw.CC 
5109 017110 LET CC := CC CLR.BY #177760 

5110 017110 042737 177760 000516 BIC #177760.CC 
5111 017116 IF CC NE #0 THEN 

5112 017116 005737 000516 TST cc 

5113 017122 001402 BEQ $50560 
5114 017124 CALL ERROR 

5115 017124 004737 056274 JSR PC ERROR 
5116 017130 ENDIF 

5117 017130 $50560: 

5118 017130 IF RO NE #0 THEN 

5119 017130 005700 TST RO 

5120 017132 001402 BEQ $50561 
5121 017134 CALL ERROR 

5122 017134 004737 056274 JSR PC ERROR 
5123 017140 ENDIF 

5124 017140 $50561: 

5125 017140 IF R1 NE #0 THEN 

5126 017140 005701 TST R1 

5127 017142 001402 BEQ $50562 
5128 017144 CALL ERROR 

5129 017144 004737 056274 JSR PC ERROR 
5130 017150 ENDIF 

5131 017150 $50562: 

5132 017150 IF R2 NE #0 THEN 

5133 017150 005702 TST R2 
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001402 
004737 


005703 
001402 


004737 


005704 
001402 
004737 


005705 
001402 


004737 


012700 


122027 
001402 


004737 


122027 
001402 


004737 


020027 
001370 


122027 
001402 


004737 


005037 


056274 


056274 


056274 


056274 


062474 
000001 


056274 


000021 


056274 


062501 


000037 


056274 


000454 
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CALL ERROR 
ENDIF 
IF R3 NE #0 THEN 


CALL ERROR 
ENDIF 
IF R4 NE #0 THEN 


CALL ERROR 
ENDIF 
IF RS NE #0 THEN 


CALL ERROR 
ENDIF 
LET RO := #DS.DST 
IFB (RO)+ NE #1 THEN 


CALL ERROR 
ENDIF 
REPEAT 
IFB (RO)+ NE 421 THEN 


CALL ERROR 
ENDIF m 
UNTIL RO EQ ADS.DST+5 


IFB (RO)+ NE #37 THEN 


CALL ERROR 
ENDIF 
LET ERRFLG := #0 


$50563: 


$50564: 


$50565: 


$50566: 


$50567: 


$50570: 


$50571: 


$50572: 


BEQ 
JSR 


TST 
BEQ 


JSR 


TST 
BEQ 


JSR 


TST 
BEQ 


JSR 


MOV 


CMPB 
BEQ 


JSR 


CMPB 
BEQ 


JSR 


CMP 
BNE 


CMPB 
BEQ 


JSR 


CLR 


SEQ 0118 


$50563 
PC,ERROR 


R3 
$50564 
PC,ERROR 


R4 
$50565 
PC,,ERROR 


R5 
$50566 
PC,,ERROR 


#D0S.DST,RO 


(RO) +,41 
$50567 


PC,ERROR 


(RO) +,421 
$50571 


PC,,ERROR 


RO, ADS .DST+5 
$50570 


(RO) +, 437 
$50572 


PC,ERROR 


ERRFLG 


~ 


C 10 
CJKDGA, ‘fae CIS DIAGNOSTIC MACY11 30A(1052) 14-MAR-80 08:04 PAGE 103 


CJKDGA-P11 12-MAR-80 13:37 CVTLP SEQ 0119 
5190 017264 REPEAT 
5191 017264 $50573: 
5192 017264 IFB (RO)+ NE #0 THEN 
5193 017264 105720 TSTB (RO) + 
5194 017266 001402 BEQ $50574 
5195 017270 CALL ERROR 
5196 017270 004737 056274 JSR PC ,ERROR 
5197 017274 ENDIF 
5198 017274 $50574: 
5199 017274 UNTIL RO EQ 4DS.DST+40 OR ERRFLG NE #0 
5200 017274 020027 062534 CMP RO,#DS.DST+40 
5201 017300 001403 BEQ $50575 
5202 017302 005737 000454 TST ERRFLG 
5203 017306 0017 BEQ $50573 
5204 017310 $50575: 
5205 017310 INLINE <JMP XCVTLN> 
5206 017310 000137 017436 JMP XCVTLN 
5207 
5208 
5209 s* 
5210 ; TABLE OF TEST CASES FOR CVTLP 
31 a 
17 017314 000014 TCVTLP: .WORD 12. :# OF TEST CASES FOR CVTLP 
5215 017316 060004 -WORD 60004 :DST. DATA TYPE AND LENGTH 
5216 017320 000000 -WORD 0 LONG INTEGER HIGH & SIGN 
agit 017322 000000 -WORD 0 ;LONG INTEGER LOW 
5219 017324 060020 -WORD 60020 zTEST CASE NUMBER 2 
5220 017326 000000 - WORD 
ass} 017330 001762 -WORD 1762 
5223 017332 060000 -WORD 60000 iTEST CASE NUMBER 3 
5224 017334 000000 . WORD 
256? 017336 152361 -WORD 152361 
5227 017340 060010 -WORD 60010 TEST CASE NUMBER 4 
5228 017342 074377 «WORD 74377 
ase 017344 1717 -WORD 171700 
5231 017346 060006 -WORD 60006 :TEST CASE NUMBER 5 
5232 017350 000000 -WORD Q 
eStz 017352 075147 «WORD 75147 
5235 017354 060020 -WORD 60020 i TEST CASE NUMBER 6 
5236 017356 077777 -WORD 77777 
a4 017360 177777 «WORD 177777 
5239 017362 060015 -WORD 60015 i TEST CASE NUMBER 7 
5240 017364 100000 -WORD 100000 
3503 017366 000000 -WORD 0 
5243 017370 060010 -WORD 60010 : TEST CASE NUMBER 8 
5244 017372 177755 «WORD 177755 


5245 017374 130070 -WORD 130070 


CJKDGA, 


pI7 308 
017400 
017402 


017410 


017412 
017414 
017416 


017420 


017422 
017424 


017426 


oe C1$S OLNaRSt 
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07 0010 
77755 
15007 0 


060037 
177777 
177775 
060003 
000000 
000257 
060000 


TCVLPI: 


70010 
177755 
130070 


177775 
60003 
257 
60000 
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TEST CASE NUMBER 12 


IN-LINE TEST CASE 


;DST TYPE = UNSIGNED PACKED, LENGTH = 12 
:DST.ADDRESS 
sl INTEGER L + 


SEQ 0120 
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SEQ 0121 
5271 .SBTTL CVTLN 
5272 PERERA TERE EERE REE REE ERE REE 
5273 : 
ogre 3; CVTLN TEST 
5276 PETIT ICI titi iii titi tiiit iit tti titi titi titititi itt ttt i ttt i tits 
5277 017436 INLINE <XCVTLN:> 
5278 017436 XCVTLN: 
5279 017436 INLINE <SCOPE> 
5280 017436 000004 SCOPE 
5281 017440 LET STIMES := #20 ; ITERATION COUNT 
5282 017440 012737 000020 000404 MOV #20, $TIMES 
52835 017446 LET COUNT := TCVTLN ;GET TEST COUNT 
5284 017446 013737 021052 000466 MOV TCVTLN, COUNT 
5285 017454 LET TSTCAS := ATCVTLN+2 ;POINT TO FIRST TEST CASE 
5286 017454 012737 021054 000542 MOV #TCVILN#2,TSTCAS 
5287 ;REPEAT 
5288 017462 INLINE <$5057:> 
5289 017462 $5057: 
5290 
5291 e+ 
5292 : GET TEST DATA FROM TABLE 
5293 = 
5294 
5295 017462 LET RO := TSTCAS 
5296 017462 013700 000542 MOV TSTCAS,RO 
5297 017466 LET DATAOO := (RO)+ DST. DATA TYPE AND LENGTH 
5298 017466 012037 000560 MOV (RO) +, DATAOO 
5299 017472 LET DATAQ1 := (RO)+ ;LONG INTEGER HIGH 
5300 017472 012037 000562 MOV (RO)+,DATAOT 
5301 017476 LET DATAQ2 := (RO)+ ;LONG INTEGER LOW 
5302 017476 012037 000564 MOV (RO) +, DATAO2? 
5303 
5304 3¢ 
sane ; PUT EXPECTED RESULTS INTO DS.EXP AND CC.EXP 
5307 
5308 017502 CALL CLRDSB sCLEAR DECIMAL STRING BUFFER AREA 
5309 017502 004737 055520 JSR PC, CLRDSB 
5310 017506 LET R2 := DATAO1 
5311 017506 013702 000562 MOV DATAO1,R2 
5312 017512 LET R3 := DATAO2 
5313 017512 013703 000564 MOV DATAO2,R3 
5314 017516 CALL CVTLI ;CONVERT LONG INTEGFR TO AN INTERMEDIATE FORM 
5315 017516 004737 030362 JSR PC,CVTLI 
5316 017522 LET CC.EXP := #0 
5317 017522 005037 000520 CLR CC.EXP 
5318 017526 LET DSLEN2 := DATAOO CLR.BY #177740 :GET DST.LEN 
5319 017526 013737 000560 000514 MOV DATAOO ,DSLEN2 
5320 017534 042737 177740 000514 BIC #177740 ,DSLEN2 
5321 017542 LET DATTYP := DATAOO CLR.BY 4107777 :GET DATA TYPE 
5322 017542 013737 000560 000462 MOV DATAOO ,DATTYP 
5323 017550 042737 107777 000462 BIC #107777 ,DATTYP 
5324 017556 IF DSLEN2 ES #0 THEN iDST.LEN = 9 
5325 017556 005737 000514 TST N2 


DSLE 
5326 017562 001053 BNE $50576 
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5327 017564 LET CC.EXP := CC.EXP SET.BY #ZBIT 

5328 017564 052737 000004 000520 BIS #ZBIT,CC.EXP 
5329 017572 IF DSLEN1T HI #0 THEN 7 INTERMEDIATE LENGTH > 0 

5330 017572 005737 000512 TST DSLEN1 

5331 017576 101403 BLOS $50577 

5332 017600 LET CC.EXP := CC.EXP SET.BY #VBIT 

5333 017600 052737 000002 000520 BIS #VBIT,CC.EXP 
5334 017606 ENDIF 


$50577: 
5336 017606 IF DATTYP EQ #40000 THEN ; TRAILING SEPARATE 
5337 017606 023727 000462 040000 CMP 
5338 001015 BNE 


5339 017616 IF SIGNO EQ #0 THEN 
5340 017616 ted 000446 TST S1GNO 


BNE $50601 
5342 017624 LET DS.EXP :B= #53 
5343 017624 112737 000053 062536 MOVB #53,DS.EXP 
5344 017632 ELSE 
5345 017632 000406 BR $50602 
5346 017634 $50601: 
5347 017634 LET DS.EXP :B= #55 
5348 017634 112737 000055 062536 MOVB #55 ,DS.EXP 
5349 017642 LET CC.EXP := CC.EXP SET.BY #NBIT 
5350 017642 052737 000010 000520 BIS #NBIT.CC.EXP 
5351 017650 ENDIF 
5352 017650 $50602: 
rt 017650 ENDIF 


$50600: 
5355 017650 IF DATTYP EQ #50000 THEN sLEADING SEPARATE 
5356 017650 023727 600462 050000 CMP DATTYP, 450000 
5357 017656 001015 BNE $50603 
5358 017660 IF SIGNO EQ #0 THEN 
5359 017660 005737 000446 TST SIGNO 
5360 001004 BNE 


$50604 
5361 017666 LET DS.EXP-1 :B= #53 
5362 017666 112737 000053 062535 MOVB #53,DS.EXP-1 
5363 017674 ELSE 
5364 017674 000406 BR $50605 
5365 017676 $5064 : 
5366 017676 LET DS.EXP-1 :B= #55 
5367 017676 112737 000055 062535 MOVB #55 .DS.EXP=1 
5368 017704 LET CC.EXP := CC.EXP SET.BY #NBIT 
5369 017704 052737 000010 000520 BIS #NBIT.CC.EXP 
5370 017712 ENDIF 
5371 017712 $50605: 
5372 017712 ENDIF 
5373 017712 $50603: 
5374 017712 ENDIF 


$50576: 
5376 017712 IF DSLEN2 GT #0 AND DSLEN1 EQ 40 THEN :DST.LEN > 0, SRC.LEN = 0 
5377 017712 005737 000514 TST D 

5378 017716 003420 BLE $50606 
5379 017720 005737 000512 TST DSLEN1 
5380 017724 001015 BNE $50606 
5381 017726 LET R1 := MDS.EXP 

5382 017726 012701 062536 MOV #DS.EXP,R1 


DATTYP, #40000 
$50600 
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017732 LET R2 := DSLEN2 
013702 000514 DSLEN2,R2 
WHILE R2 HI #0 DO 
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005702 R2 

101404 $50610 
LET (R1)+* :B= #60 

112721 #60,(R1)+ 
LET R2 := R2 = #1 

005302 R2 

ENDDO 
000772 BR $50607 


$50610: 
LET CC.EXP := CC.EXP SET.BY #ZBIT 
gpg ENDIF BIS #ZBIT,CC.EXP 


$50606: 
IF DSLEN2 GT #0 AND DSLEN1 GT #0 THEN :DST.LEN > 0 need” © ee . 
L 


LET R1 := #DSBUF1 + #10. = DSLENI 
012701 #DSBUF 1 ,R1 
062701 0000 #10. ,R1 
163701 DSLEN1,R1 

LET R2 := #DS.EXP 
012702 MOV OS .EXP,R2 

IF DSLEN2 GT DSLEN1 THEN :DST.LEN > SRC.LEN > 0 
023737 CMP DSLEN2,DSLEN1 
003413 $50612 


BLE 
LET R2 := R2 + DSLEN2 = DSLEN1 
063702 ADD DSLEN2 .R2 
163702 UB DSLEN1 ,R2 
LET RO := #DS.EXP 
012700 #D0S.EXP,RO 
WHILE RO NE R2 DO 


020002 C RO,R2 
001403 $50614 
LET (RO)+ :B= 
112720 #60, (RO)+ 
ENDDO 
000773 BR $50613 
$50614: 
ENDIF 


$50612: 
IF DSLEN2 LO DSLEN1 THEN :SRC.LEN > DST.LEN > 0 
CMP BSL ces -OSLEMT 


BHIS $ 
LET R1 := R1 + DSLENT = DSLEN2 
ADD DSLEN1.R1 


063701 

163701 SUB DSLEN2 ,R1 
LET CC.EXP := CC.EXP SET.BY #VBIT 

052737 neal BIS @VBIT.CC.EXP 


v! 
& 


cd ek a aed ed ed dd 
WONAUSWN—O 


5406 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 


3 


023737 
103007 
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$50615: 
REPEAT 


$50616: 
LET TEMPO :B= (R1)+* SET.BY #60 ; TRANSFER THE DIGITS TO DS.EXP 
112137 MOVB (R1)+, TEMPO 
152737 #60, TEMPO 
LET (R2)+ :B= TEMPO 
113722 TEMPO, (R2)+ 
UNTIL R1 EQ #DSBUF1+12 
020127 R1, #DSBUF 1+12 
001 366 $50616 
IF DATTYP EQ #0 AND SIGNO EQ #=1 THEN 
005737 DATTYP 
001012 
023727 177777 
001006 


LET CC.EXP := CC.EXP SET.BY #NBIT 

052737 000520 WNBIT,CC.EXP 
LET R2 := R2 = #1 

005302 


DEC R2 
LET (R2) :B= (R2) SET.BY #160 z*** SIGNED ZONE, NEGATIVE *** 
152712 ENDIF BISB #160, (R2) 


$50617: 
IF DATTYP EQ #20000 OR DATTYP EQ #30000 THEN ; PUNCH *** 
023727 020000 C DATTYP ,#20000 
001404 $50620 


023727 030000 CMP DATTYP,#30000 
001026 BNE $50621 


IF DATTYP EQ #20000 THEN ; TRAILING 
023727 020000 C 
001002 


LET R2 := R2 - #1 


005302 DEC 
ELSE LEADING 
000402 BR $50623 


LET R2 := #DS.EXP 
012702 MOV #DS.EXP,R2 
ENDIF 


LET RO :B= (R2) CLR.BY #60 
111200 MOVB (R2) RO 
142700 000060 BICB #60,RO 

IF SIGNO EQ #=-1 THEN ;NEG. SIGN 
Ooo 000446 177777 CMP SIGNO,#=1 


BNE $50624 
LET RO := RO + #10, 


062700 000012 ADD #10. ,.RO 
LET CC.EXP := CC.EXP SET.BY #NBIT 
052737 000010 #NBIT.CC.EXP 


ENDIF 
$50624: 
LET (R2) :B= OVPNCH(RO) ;GET APPROPRIATE SIGN/DIGIT FROM 
116012 055254 MOVB OVPNCH(RO), (R2) 
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5495 020252 ENDIF 
5496 020252 $50621: 
5497 020252 IF DATTYP EQ #40000 OR DATTYP EQ #50000 THEN y*%e SEPARATE *** 
5498 020252 023727 000462 040000 CMP DATTYP, #40000 
020260 001404 BEQ $5062 
5500 020262 023727 000462 050000 CMP DATTYP, #50000 
5501 020270 001023 BNE $50626 
5502 020272 $50625: 
5503 020272 IF D&-TYP EQ #50000 THEN LEADING 
5504 020272 023727 000462 050000 CMP DATTYP, 450000 
5505 020 001003 BNE $50627 
5506 020302 LET R2 := #DS.EXP = #1 
5507 020302 012702 062536 MOV #DS.EXP,R2 
5508 020306 005302 DEC R2 
5509 020310 ENDIF 
5510 020310 $50627: 
5511 020310 IF SIGNO EQ #=-7 THEN 
5512 020310 023727 000446 177777 CMP SIGNO,4-1 
5513 020316 001006 BNE $50630 
5514 020320 LET (R2) :B= 455 NEGATIVE 
5515 020320 112712 000055 MOVB #55, (R2) 
5516 020324 LET CC.EXP := CC.EXP SET.BY #NBIT 
5517 020324 052737 000010 000520 BIS A#NBIT,CC.EXP 
5518 020332 ELSE 
5519 020332 000402 uR $50631 
5520 020334 $50630: 
5521 020334 LET (R2) :B= #53 sPOSITIVE # 
5522 020334 112712 000053 MOVB #53, (R2) 
5523 020340 ENDIF 
5524 020340 $50631: 
5525 020340 ENDIF 
5526 020340 $50626: 
5527 020340 ENDIF 
5528 020340 $50611: 
5529 
5530 gs 
5531 ; SET UP GPR'S AND EXPECTED GPR'S. 
5534 020340 LET RO := DATAOO ;DATA TYPE AND LENGTH 
5535 020340 013700 000560 MOV DATAOO,RO 
5536 020344 LET R1 := #DS.DST :DST. ADR 
5537 020344 012701 062474 MOV #DS.DST,R1 
5538 020350 LET R2 := DATAQ1 
5539 020350 013702 000562 MOV DATAO1,R2 
5540 020354 LET R3 := DATAO2 
5541 020354 013703 000564 MOV DATAO2,R3 
5542 020360 IF #1 SETIN COUNT THEN 
5542 020360 032737 000001 000466 BIT #1, COUNT 
5544 020366 001405 BEQ $50632 
5545 020370 LET RG := #177777 
5546 020370 012704 177777 MOV #177777. R4 
5547 020374 LET RS := #177777 
5548 020374 012705 177777 MOV #177777 .RS 


5549 020400 ELSE 
5550 020400 000402 BR $50633 


J 10 
CJKDGA, KEF11=B8 CIS DIAGNOSTIC MACY17 30A(1052) 14=MAR=80 08:04 PAGE 110 
CJKDGA.P11 12=MAR-80 13:37 CVTLN 


$50632: 
LET R& := #0 


005004 R4 
LET RS := #0 
005005 RS 


ENDIF 
$50633: 

LET RO.EXP := RO 

010037 RO,RO.EXP 
LET R1.EXP := R1 

010137 R1,R1.EXP 
LET R2.EXP := #0 

005037 R2.EXP 

; LET R3.EXP := #0 

005037 R3.ExXP 
LET R4&.EXP := R4 

010437 R4,R4.EXP 
LET RS.EXP := RS 

010537 R5,R5.EXP 


:+ 
; DO THE CIS INSTRUCTION 


INLINE <CVTLN> 
076057 


+ 
: CHECK CONDITION CODES AND GPR*S FOR CORRECT RESULTS. 


LET CC := PSw 
013737 177776 000516 Psw,CC 
LET CC := CC CLR.BY #177760 
042737 177760 000516 #177760,CC 
023737 000516 000520 ae a a CC,CC.EXP 
EX 
001402 $50634 
CALL ERROR 
004737 056274 PC ,ERROR 
ENDIF 


nse sili IF RO NE RO.EXP THEN bie pak 
001402 7 $50635 
CALL ERROR 
004737 056274 PC ERROR 
ENDIF 


020137 000524 IF R1 NE R1.EXP THEN pee 
R1,R1.EXP 
001402 $56636 
CALL ERROR 
004737 056274 PC ERROR 
ENDIF 
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SEQ 0127 

5607 020514 $50636: 
5608 020514 IF R2 NE R2.EXP THEN 

020514 020237 000526 CMP R2,R2.EXP 
5610 020520 001402 BEQ $50637 
5611 020522 CALL ERROR 
5612 020522 004737 056274 JSR PC ERROR 
5613 020526 ENDIF 
5614 020526 $50637: 
5615 020526 IF R3 NE R3.EXP THEN 
5616 020526 020337 000530 CMP R3,R3.EXP 
5617 020532 001402 BEQ $50640 
5618 020534 CALL ERROR 
5619 020534 004737 056274 JSR PC ERROR 
5620 020540 ENDIF 
5621 020540 $50640: 
5622 020540 IF RG NE R4.EXP THEN 
5623 020540 020437 000532 CMP R4,R4.EXP 
5624 020544 001402 BEQ $50641 
5625 020546 CALL ERROR 
5626 020546 004737 056274 JSR PC ERROR 
5627 020552 ENDIF 
5628 020552 $50641: 
5629 020552 IF RS NE RS.EXP THEN 
5630 020552 020537 000534 CMP R5,RS.EXP 
5631 020556 001402 BEQ $50642 
5632 020560 CALL ERROR 
5633 020560 004737 056274 JSR PC ,ERROR 
5634 020564 ENDIF 
3635 020564 $50642: 
5637 i+ 
38 ; COMPARE THE EXPECTED DECIMAL STRING BUFFER 
5639 ; WITH ACTUAL RESULTS. 
5640 & 
5641 
5642 020564 LET RO := #DS.DST 
5643 020564 012700 062474 MOV #DS.DST.RO 
5644 020570 LET R1 := #DS.EXP 
5645 020570 012701 062536 MOV #DS.EXP,R1 
5646 020574 LET ERRFLG := #0 
5647 020574 005037 000454 CLR ERRFLG 
5648 020600 WHILE RO NE #DS.DST+40 AND ERRFLG EQ #0 DO 
5649 020600 $50643: 
5650 020600 020027 062534 CMP RO, #DS.DST+40 
5651 020604 001410 BEQ $50644 
5652 020606 005737 000454 TST ERRFLG 
5653 020612 001005 BNE $50644 
5654 020614 IFB (RO)+ NE (R1)+* THEN 
5655 020614 122021 CMPB ss (RO) +, (R11) + 
5656 020616 001402 BEQ $50645 
5657 020620 CALL ERROR 
5658 020620 004737 056274 JSR PC ERROR 
5659 020624 ENDIF 
5660 020624 $50645: 
5661 020624 ENDDC 
5662 020624 000765 BR $50643 
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$50644: 
LET TSTCAS := TSTCAS + #6 
062737 ADD 46, TSTCAS 
LET COUNT := COUNT = #1 
005337 DEC COUNT 
;UNTIL COUNT EQ 40 
IF COUNT NE #0 THEN 
005737 TST COUNT 
001402 BEQ $50646 
INLINE <JMP $5057> 
000137 JMP $5057 


ENDIF 
$50646: 


+ 
; DO ONE IN-LINE CASE = CVTLNI 


CALL CLRREG 

004737 055330 JSR PC,CLRREG 
CALL CLRDSB 

004737 055520 JSR PC,CLRDSB 
INLINE <CVTLNI> 

076157 CVTLNI 
INLINE <.WORD TCVLNI> 

021164 TCVLNI 
INLINE <.WORD TCVLNI+4> 

021170 TCVLNI +4 
LET CC := PSwW 

013737 177776 000516 PSW,CC 
LET CC := CC CLR.BY #177760 

042737 177760 000516 #177760,CC 


IF CC NE #0 THEN 
005737 000516 CC 
001402 $50647 
CALL ERROR 
004737 056274 PC ,,ERROR 
ENDIF 


IF RO NE #0 THEN 
005700 RO 
001402 $50650 
CALL ERROR 
004737 056274 PC ERROR 
ENDIF 
IF R1 NE #0 THEN 
005701 R1 
001402 $50651 
CALL ERROR 
004737 056274 PC ERROR 
ENDIF 
IF R2 NE #0 THEN 
005702 


Re 
001402 $50652 





CJKDGA, 
J 


KEF 11-8 CIS DIAGNOS 
CJKDGA.P11 12 


A TI 
“MAR-80 13:37 


004737 056274 


005703 
001402 


004737 056274 


005704 
001402 
004737 056274 


005705 
001402 


004737 056274 


012700 062473 
122027 000053 
001402 


004737 056274 
005037 000454 


122027 000061 
001402 


004737 056274 


062506 
005737 000454 


000137 021174 


M 10 
C MACY11 Yat 14=MAR=80 08:04 PAGE 113 


CALL ERROR 
ENDIF 
IF R3 NE #0 THEN 


CALL ERROR 
ENDIF 
IF R& NE #0 THEN 


CALL ERROR 
ENDIF 
IF RS NE #0 THEN 


CALL ERROR 
ENDIF 
LET RO := #DS.DST-1 
IFB (RO)+ NE #53 THEN 


CALL ERROR 
ENDIF 
LET ERRFLG := #0 
REPEAT 
IFB (RO)+ NE #61 THEN 


N\ 


CALL ERROR 
ENDIF 
UNTIL RO EQ #DS.DST+12 OR ERRFLG NE #0 


INLINE <JMP XCVTPL> 


$50652: 


$50653: 


$50654: 


$50655: 


$50656: 


$50657: 


$50660: 


$50661: 


SEQ 0129 


JSR PC,ERROR 
TST R3 

BEQ $50653 

JSR PC ERROR 

TST R4 

BEQ $50654 

JSR PC ERROR 

TST R5 

BEQ $50655 

JSR PC ERROR 

MOV #DS.DST-1,RO 
CMPB —s- (RO) +, #53 
BEQ $50656 

JSR PC ERROR 

CLR ERRFLG 

CMPB  —s- (RO) +, #61 
BEQ $50660 

JSR PC ERROR 

CMP RO, ADS .DST+12 
BEQ $50661 

TST ERRFLG 

BEQ $50657 

JMP XCVTPL 
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TCVTLN: WORD 


TCVLNI: 
. WOR 


; TABLE OF TEST CASES FOR CVTLN 


l2. 

5 

0 

0 
50006 
0 

0 
20010 
1751 
30000 
152361 
40000 
24137 
50003 
75147 


20004 
75147 
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SEQ 0130 


:# OF TEST CASES FOR CVTLN 
:DST. DATA TYPE AND LENGTH 
LONG INTEGER HIGH & SIGN 
;LONG INTEGER LOW 


: TEST CASE NUMBER 2 


TEST CASE 


TEST CASE 


TEST CASE 


TEST CASE 


i TEST CASE 


TEST CASE 


TEST CASE 


TEST CASE 


TEST CASE 


TEST CASE 


i IN-LINE TE 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


ST CASE 


DST TYPE 


3 


= LEADING SEPARATE, LENGTH = 12 


om 


~ 
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5831 021166 062474 «WORD DS.DST ;DST.ADDRESS 
5832 021170 032707 «WORD 32707 LONG INTEGER LOW WORD + 
7 «WORD 41072 ; LONG INTEGER HIGH WORD AND SIGN 


5833 021172 041072 
5834 3 = 1111111111 IN BCD 
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836 SIRIUS ISI IIISISIIIIU III IO IIOIUIDIIIUIII UII IOIIOI TOO TOR it 


5838 : CVIPL TEST 


SEQ 0132 


5840 J EAIOE EIR ISIS IS IIIIIISIISISIIDIUISIIIIOIOISIIUIOIDIIOIIOIOIII IIIS DIE 

5841 021174 INLINE <XCVTPL:> 

5842 021174 XCVTPL: 

5843 021174 INLINE <SCOPE> 

5844 021174 000004 SCOPE 

5845 021176 LET $TIMES := #20 ; ITERATION COUNT 

5846 021176 012737 000020 000404 MOV #20,$TIMES 
5847 021204 LET COUNT := TCVTPL GET TEST COUNT 

5848 021204 013737 022216 000466 MOV TCVTPL , COUNT 
589 021212 LET TSTCAS := #TCVTPL+2 ;POINT TO FIRST TEST CASE 

opay 021212 012737 022220 000542 MOV MTCVTPL+2,TSTCAS 


;REPEAT 
5852 021220 INLINE <$5073:> 
5853 021220 $5073: 


;* 
5856 ; GET TEST DATA FROM TABLE 
5857 ead 


5859 021220 LET RO := TSTCAS 

5860 021220 013700 000542 ; MOV TSTCAS ,RO 
5861 021224 LET DATAOO := (RO)+ SRC. DATA TYPE AND LENGTH 

5862 0621224 012037 000560 MOV (RO) + ,DATAOO 
5863 021230 LET DATAO1 (RO) SRC. POINTER 

5864 021230 011037 000562 MOV (RO) ,DATAO1 


+ 
rsaeh ; SET UP RO.EXP, R1.EXP, R4.EXP, RS.EXP, R4, AND RS. 


5870 021234 LET RO.EXP := #0 

5871 021234 005037 000522 CLR RO.EXP 
5872 021240 LET R1.EXP := #0 

5873 021240 005037 000524 CLR R1.EXP 
5874 021244 IF #1 SETIN COUNT THEN 

5875 021244 032737 000001 000466 BIT #1, COUNT 
5876 021252 001405 BEQ $50662 
5877 021254 LET R4 := #177777 

5878 021254 012704 177777 MOV #177777 ,R4 
5879 021260 LET RS := #177777 

5880 021260 012705 177777 MOV #177777 ,R5 
SI cme ne e568 
5883 021266 $50662: 

5884 021266 LET R4 : 
5885 021266 005004 CLR R4 
5886 021270 LET R5 := #0 

5887 021270 005005 CLR RS 
5888 021272 ENDIF 

5889 021272 $50663: 

5890 021272 LET R4&.EXP := R4 


" 
= 
o 
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5891 021272 010437 000532 MOV R4,R4.EXP 
5892 021276 LET RS.EXP := RS 
§893 021276 010537 000534 MOV RS,R5.EXP 
e808 

5¢ » 
3896 > CONVERT PACKED NUMBER AND LOAD INTO R2.EXP AND R3.EXP 
5898 
5899 021302 CALL CLRDSB 
5900 021302 004737 055520 JSR PC, CLRDSB 
5901 021306 LET CC.EXP := #0 
5902 021306 005037 000520 CLR CC.EXP 
5903 021312 LET RO := #DSBUF1 :DST.POINTER 
5904 021312 012700 062370 MOV #DSBUF 1,RO 
5905 021316 LET R1 == DATAO1 :SRC.POINTER 
5906 021316 013701 000562 MOV DATAO1,R1 
5907 021322 LET DSLEN1 := DATAOO CLR.BY 4177740 ;GET SRC.LEN 
5908 021322 013737 000560 000512 MOV DATAOO, DSLEN1 
5909 021330 042737 177740 000512 BIC #177740,DSLEN1 
5910 021336 IF DSLEN1 EQ #0 THEN 7SRC.LEN=0 
5911 021336 005737 000512 TST DSLEN1 
5912 021342 001010 BNE $50664 
5913 021344 LET CC.EXP := CC.EXP SET.BY #ZBIT 
5914 021344 052737 000004 000520 BIS #ZBIT.CC.EXP 
5915 021352 LET R2.EXP := #0 
5916 021352 005037 000526 CLR R2. EXP 
5917 021356 LET R3.EXP := #0 
5918 021356 005037 000530 CLR R3.EXP 
5919 021362 ELSE 
5920 021362 000532 BR $50665 
5921 021364 $50664: 
5922 021364 LET RO := #DSBUF1 + #10. = DSLEN1 ;DEST. FOR INTERMEDIATE RESULTS 
5923 021364 012700 062370 MOV #ODSBUF 1,RO 
5924 021370 062700 000012 ADD #10. ,RO 
5925 021374 163700 000512 SUB DSLEN1,RO 
5926 :LOAD UP DSBUF1 BUFFER WITH INTERMEDIATE RESULTS 
5927 021400 CALL CLRDSB ;CLEAR DECIMAL STRING BUFFERS 
5928 021400 004737 055520 JSR PC, CLRDSB 
5929 021404 IF #1 NOTSETIN DSLEN1 THEN 
5930 021404 032737 000001 000512 BIT #1,DSLEN1 
5931 021412 001005 BNE $50666 
5932 021414 LET (R1) :B= (R1) CLR.BY #360 :=CLEAR UPPER NIBBLE 
5933 021414 142711 000360 BICB  #360,(R1) 
5934 021420 LET (RO)+ :B= (R1)+ 
5935 021420 112120 MOVB  (R1)+,(RO)+ 
5936 021422 LET DSLEN1 := DSLEN1 - #1 
5937 021422 005337 000512 DEC DSLEN1 
5938 021426 ENDIF 
5939 021426 $50666: 
5940 021426 WHILE DSLEN1 HI #1 DO 
5941 021426 $50667: 
5942 021426 023727 000512 000001 CMP DSLEN1,#1 
5943 021434 101420 BLOS  $50670 
5944 021436 LET (RO) :R= (R1) 
5945 021436 111110 MOVB _—(R1), (RO) 


5946 021440 INLINE <ASRB (RQ)> 
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5947 021440 106210 ASRB (RO) 

5948 021442 INLINE <ASRB (RO)> 

5949 021442 106210 ASRB (RO) 

5950 021444 INLINE <ASRB (RO)> 

5951 021444 106210 ASRB (RO) 

5952 021446 INLINE <ASRB (RO)> 

5953 021446 106210 ASRB (RO) 

5954 021450 LET (RO) :B= (RO) CLR.BY 4360 ;CLEAR UPPER NIBBLE 

5955 021450 142710 000360 BICB #360, (RO) 
5956 021454 LET RO := RO + #1 

5957 021454 005200 INC RO 

5958 021456 LET (RO) :RB= (R1)* CLR.BY #360 

5959 021456 112110 MOVB — (R1) +, (RO) 
5960 021460 142710 000360 BICB #360, (RO) 
5961 021464 LET RO := RO + #1 

5962 021464 005200 INC RO 

5963 021466 LET DSLEN1 := DSLEN1 = 42 

5964 021466 162737 000002 000512 SUB #2,DSLEN1 
5965 021474 ENDDO 

5966 021474 000754 BR $50667 
5967 021476 $50670 

5968 021476 LET (RO) :B= (R1) GET THE LSD 

5969 021476 111110 MOVB (R71), (RO) 
5970 021500 INLINE <ASRB (RO)> 

5971 021500 106210 ASRB (RO) 

$972 021502 INLINE <ASRB (RO)> 

5973 021502 106210 ASRB (RO) 

5974 021504 INLINE <ASRB (RO)> 

5975 021504 106210 ASRB (RO) 

5976 021506 INLINE <ASRB (RO)> 

5977 021506 106210 ASRB (RO) 

5978 021510 LET (RO) :B= (RO) CLR.BY #360 
5979 021510 142710 000360 BICB  #360,(RO) 
5980 ;LOAD UP R2.EXP AND R3.EXP WITH FINAL RESULT 

5981 021514 CALL CVTIL 

5982 021514 004737 031266 JSR PC .CVTIL 
5983 021520 LET DATTYP := DATAOO CLR.BY #107777 

5984 021520 013737 000560 000462 MOV DATAOO,DATTYP 
5985 021526 042737 107777 000462 BIC #107777 ,DATTYP 
5986 021534 IF DATTYP EQ #60000 THEN :SIGNED PACKED 

5987 021534 023727 000462 060000 CMP DATTYP, #60000 
5988 021542 001042 BNE $50671 
5989 021544 LET TEMPS :B= (R1) CLR.BY #360 ISOLATE THE SIGN 

5990 021544 111137 000506 MOVB (R11), TEMPS 
5991 021550 142737 000360 000506 BICB #360. TEMPS 
5992 021556 IFB TEMPS EQ #15 OR TEMPS EQ #13 THEN 

5993 021556 123727 000506 000015 CMPBsTEMPS..#15 
5994 021564 001404 BEQ $50672 
5995 021566 023727 000506 000013 CMP TEMPS #13 
5996 021574 001025 $5067 
5997 021576 $50672: 

5998 021576 LET CC.EXP := CC.EXP SET.BY #NBIT 

5999 021576 052737 000010 000520 BIS WNBIT.CC.EXP 
6000 021604 LET R3.EXP := NEGATE R3.EXP 

6001 021604 005437 000530 NEG R3.ExXP 


6002 021610 LET R2.EXP := COMP R2.ExXP 
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6003 021610 005137 000526 COM R2.EXP 
IF R3.EXP EQ #0 THEN 

6005 021614 005737 000530 TST R3.EXP 
6006 021620 001002 BNE $50674 
6007 021622 LET R2.EXP := R2.EKP + #1 

6008 021622 005237 000526 INC R2.EXP 
6009 021626 ENDIF 

6010 021626 $50674: 

6011 021626 IF R2.EXP NE #0 OR R3.EXP NE #0 THEN 
6012 021626 005737 000526 TST Re. EXP 
6013 021632 001003 BNE $50675 
6014 021634 005737 000530 TST R3.EXP 
6015 021640 001403 BEQ $50676 
6016 021642 $50675: 

6017 021642 LET CC.EXP := CC.EXP SET.BY &CBIT 

6018 021642 052737 000001 000520 BIS #CBIT,CC.EXP 
6019 021650 ENDIF 

6020 021650 $50676: 

6021 021650 ENDIF 

6022 021650 $50673: 

6023 021650 ENDIF 

6024 021650 $50671: 

6025 021650 ENDIF 

6026 021650 $50665: 


SEQ 0135 


Oo 
~ 
_ 
oO 
—_ 
™ 


+ 
; SET UP RO THRU R3 


6032 021650 LET RO := DATAOO :SRC.DSCR 

6033 021650 013700 000560 “Ov DATAOO ,RO 
6034 021654 LET R1 DATAOQ1 i SRC.DSCR 

6035 021654 013701 000562 Ov DATAQT,R} 
6036 021660 LET R2 := #0 

6037 021660 005002 CLR R2 

6038 021662 LET R3 := #0 

st4 021662 005003 CLR Re 


6041 i+ 
6042 ; DO THE CIS INSTRUCTION 
6043 +. 


6045 021664 INLINE <CV?PL> 
6046 021664 076073 CVTPL 


-+ 
ries : CHECK CONDITION CODES AND GPR°S FOR CORRECT RESULTS. 


6053 021666 LET CC := PSW 

6054 021666 013737 177776 000516 MOV PSCC 
6055 021674 LET CC := CC CLR.BY #177760 

6056 021674 042737 177760 000516 BIC #177760,CC 
6057 021702 IF CC NE CC.EXP THEN 

6058 021702 023737 000516 000520 CMP CC,CC.EMP 
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6059 
6060 


022012 
022012 


022012 
022012 


022020 
022020 
022024 


12=MAR-80 


001402 
004737 


020037 
001402 


004737 


020137 
001402 


004737 
020237 
001402 
004737 


020337 
001402 


004737 


020437 
001402 


004737 


020537 
001402 


004737 


062737 
005337 


005737 
001402 


13:37 


056274 


000522 


056274 


000524 


056274 


000526 


056274 


000530 


056274 


000532 


056274 


000534 


056274 


000004 
000466 


000466 


LET COUNT 


sUNTIL COUNT EQ #0 
IF COUNT NE #0 THEN 


CALL ERROR 
ENDIF 
IF RO NE RO.EXP 


CALL ERROR 
ENDIF 
IF R1 NE R1.EXP 


CALL ERROR 
ENDIF 
IF R2 NE R2.EXP 


CALL ERROR 
ENDIF 
IF R3 NE R3.EXP 


CALL ERROR 
ENDIF 
IF R& NE R4.EXP 


CALL ERROR 
ENDIF 
IF RS NE RS.EXP 


CALL ERROR 
ENDIF 
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THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


LET TSTCAS := TSTCAS + #4 
:= COUNT - #1 


$50677: 


$50700: 


$50701: 


$50702: 


$50703: 


$50704: 


$50705: 


$50677 
PC,ERROR 


RO,RO.EXP 
$50700 


PC,ERROR 


R1,R1.EXP 
$50701 


PC,ERROR 


R2,R2.EXP 
$50702 


PC,ERROR 
R3,R3.EXP 
$50703 

PC ERROR 
R4,RS.EXP 
$50704 
PC,,ERROR 


R5,RS.EXP 
$50705 


PC ,ERROR 


#4, TSTCAS 


SEQ 0136 
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022032 


0 
022142 


000137 


004737 
004737 
076173 
022274 
022300 
013737 
042737 


005737 
001402 


004737 


005700 
001402 


004737 


005701 
001402 


004737 


005702 
001402 


004737 


005703 
001402 


004737 


13:37 


021220 


055330 
055520 


177776 
177760 
000516 


056274 


056274 


056274 


056274 


056274 


000516 
000516 
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INLINE <JMP $5073> 
ENDIF 


+ 
; DO ONE INLINE CASE = CVTPLI 


CALL CLRREG 

CALL CLRDSB 

INLINE <CVTPLI> 

INLINE <.WORD TCVPLI> 
INLINE <.WORD TCVPLI+4> 
LET CC := PSwW 

LET CC CC CLR.BY #177760 
IF CC NE #0 THEN 


CALL ERROR 
ENDIF 
IF RO NE #0 THEN 


CALL ERROR 
ENDIF 
IF R1 NE #0 THEN 


CALL ERROR 
ENDIF 
IF R2 NE #0 THEN 


CALL ERROR 
ENDIF 
IF R3 NE #0 THEN 


CALL ERROR 
ENDIF 


$50706: 


$50707: 


$50710: 


$50711: 


$50712: 


JMP $5073 


JSR PC,CLRREG 
JSR PC,CLRDSB 
CVTPLI 

«WORD TCVPLI 
«WORD = TCVPLI+4 
MOV PSW,CC 

BIC #177760,CC 


CC 
BEQ $50707 
JSR PC ,,ERROR 


RO 
BEQ $50710 
JSR PC ,ERROR 


R1 
BEQ $50711 
JSR PC ,ERROR 


R2 
BEQ $50712 
JSR PC ,ERROR 


R3 
BEQ $50713 
JSR PC ,ERROR 


SEQ 0137 


CJKDGA, KEF11-8 CIS DIAGNOSTIC MACY11 gue 


CJKDGA-P11 


BL 
SS 


SSSVSSSSSS 
WideAscran 


022142 


022212 


022216 
022220 
022222 
022224 
022226 
022230 
022232 
022234 
022236 


022240 
022242 


022244 


12-MAR-80 


005704 
001402 


004737 


005705 
001402 


004737 


023727 
001402 


004737 


023727 
001402 


004737 


000137 


000006 
060000 
022250 
060004 
022251 
060004 
022254 
060012 
022257 
070007 
022265 
060005 


13:37 


056274 


056274 


022300 


056274 


022302 


056274 


022314 


032707 


041072 


IF R4 NE #0 THEN 


CALL ERROR 
ENDIF 
IF RS NE #0 THEN 


CALL ERROR 
ENDIF 
IF TCVPLI+4 NE #32707 7 


CALL ERROR 
ENDIF 
IF TCVPLI+6 NE #41072 


CALL ERROR 
ENDIF 


INLINE <JMP XCVTNL> 


® 
; TABLE OF TEST CASES 


TCVTPL: .WORD 6 
-WORD 60000 
-WORD CVTPL1 
-WORD 60004 
-WORD CVIPL2 
-WORD 60004 
WORD CVTPL3 
-WORD 60012 
«WORD CVTPL4 
-WORD 70007 
-WORD CVTPL5S 
-WORD 60005 
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$50713: 


$50714: 


$50715: 


$50716: 


$50717: 


74 OF TEST CASES FOR CVTPL 


:SRC. DATA TYPE AND LENGT 


SEQ 0138 
TST R4 
BEQ $50714 
JSR PC,ERROR 
TST R5 
BEQ $50715 
JSR PC,ERROR 
CMP TCVPL1+4,432707 
BEQ $50716 
JSR PC,ERROR 
CMP TCVPL1+6,441072 
BEQ $50717 
JSR PC ,,ERROR 
JMP XCVTNL 


:POINTER TO PACKED DECIMAL STRING 


TEST CASE NUMBER 2 


TEST CASE NUMBER 3 


TEST CASE NUMBER 4 


:TEST CASE NUMBER 5 


:TEST CASE NUMBER 6 


CJKDGA, 
CJK 


erie CIS DIAGNOSTIC MACY11 ype 


JKDGA-P11 


022246 


022250 
022251 
022254 


022257 
022262 


022265 
022270 


022271 


022274 


02 
022312 


12-MAR-80 


022271 


014 
001 
001 


002 
203 


022 
055 


061 


022314 


13:37 


043 
043 


024 
144 


000 


040 


021 
021 


114 
115 


164 
174 


007 


174 


021 
021 


CVTPL1: . 
CVTPL2: 
CVTPL3: 
CVTPL4: 


CVTPLS: 


CVTPL6: . 


TCVPLI: 


PLI: 
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. WORD 


-EVEN 


CVTPL6 

014 PACKED DECIMAL STRING 1 
001,043,114 sPACKED DECIMAL STRING 2 
001,043,115 ;PACKED DECIMAL STRING 3 
002,024,164,203,144,174 PACKED DECIMAL STRING 4 


022,000,007,055 sPACKED DECIMAL STRING 5 
061,040,174 PACKED DECIMAL STRING 6 
INLINE TEST CASE 
60012 :SRC. DATA TYPE = SIGNED PACKED, LENGTH = 
PLI ;POINTER TO SRC. STR Or 
LONG INTEGER RESULT, 
0 ;LONG INTEGER RESULT, HI AND SIGN 


1,21,21,21,21.21, 34 Z INLINE PACKED DECIMAL SRC. STRING 


3 = #1171111111 IN BCD 


7 


SEQ 0139 


12 


om 
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~SBTTL = CVTNL 


SEERA EERE EERE RRR RRR EERE REE REE RARER ERE EER 
: 
; CVINL TEST 


Ps 
FERRER REAR REE EERE EERE REE REE REE ERE REE 


INLINE <XCVTNL:> 


XCVTNL: 
INLINE <SCOPE> 
000004 SCOPE 
LET $TIMES := #20 ; ITERATION COUNT 
012737 000020 000404 #20, $TIMES 
LET COUNT := TCVTNL GET TEST COUNT 
013737 023576 000466 TCVTNL , COUNT 
LET TSTCAS := #TCVINL+2 sPOINT TO FIRST TEST CASE 
012737 023600 000542 #TCVINL +2, TSTCAS 


;REPEAT 
INLINE <$5053:> 


$° 
; GET TEST DATA FROM TABLE 


LET RO := TSTCAS 
013700 TSTCAS,RO 
LET DATAOO := (RO)+ SRC. DATA TYPE AND LENGTH 
012037 MO (RO) + ,DATAOO 
LET DATAO1 := (RO) SRC. POINTER 
022350 011037 (RO) ,DATAO1 


+ 
; SET UP RO.EXP, R1.EXP, R4.EXP, RS.EXP, R4, AND R5. 


022354 LET RO.EXP := #0 
005037 000522 RO.EXP 
LET R1.EXP := 40 
005037 000524 R1.EXP 
IF #1 SETIN COUNT THEN 
032737 000001 #1, COUNT 
001405 $50720 
LET RG := #177777 
012704 177777 #177777 R4 
LET RS := #177777 
012705 177777 am #177777.R5 
000402 BR $50721 


$50720: 
LET R4 := #0 
005004 R4 
LET RS := #0 
RS 
ENDIF 


022412 LET R&.EXP := R4 


$50721: 





CRDCA KEF 11-8 CIS DIAGNOSTIC 


DGA.P11 
022412 
02241 
022416 


022422 


12=MAR-80 


010437 
010537 


005037 
012700 
013701 
005037 
013737 
042737 
01010 
052737 
005037 
005037 
000417 


012700 
062700 
163700 
013737 


112120 
005337 


005737 
001372 


013737 
042737 


005737 
001533 


13:37 
000532 
000534 


000520 
062370 
000562 
000446 
000560 
177740 
000512 


000560 
107777 


000512 
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LET RS.EXP := RS 


3+ 
; CONVERT NUMERIC DECIMAL STRING AND LOAD INTO R2.EXP AND R3.EXP 


LET CC.EXP := #0 

LET RO := #DSBUF1 

LET R1 := DATAO1 

LET SIGNO := 40 

LET DSLEN1 := DATAOO CLR.BY #177740 


CLR 
:DST. POINTER 


SRC. POINTER 


GET SRC.LEN 


IF DSLEN1 EQ #0 THEN :SRC.LEN = 0 


LET CC.EXP := CC.EXP SET.BY #ZBIT 
LET R2.EXP := #0 
LET R3.EXP := #0 
ELSE 7SRC.LEN > 0 


BR 
$50722: 
LET RO := #DSBUF1 + #10. - DSLEN1 


LET TEMPO := DSLEN1 
REPEAT 
LET (RO)+ :B= (R1)+ 
LET TEMPO := TEMPO - #1 
UNTIL TEMPO EQ #0 


$50724: 
:XFER TO INTERMEDIATE 


ENDIF 
LET DATTYP := DATAOO CLR.BY #107777 


$50723: 


MOV 
BIC 
GET THE SIGN OUT OF THE INTERMEDIATE RESULTS 

IF DSLEN1 NE #0 THEN 7SRC.LEN > 0 ra 
i 


IF DATTYP EQ #0 OR DATTYP EQ #10000 THEN 


BEQ 
yee ZONED *** 


SEQ 0141 
R4,R4.EXP 
R5,R5.EXP 


CC.EXP 
A#DSBUF 1 ,RO 
DATAO1,R1 
S1GNO 


DATAOO, DSLEN1 
#177740,DSLEN1 


DSLEN1 
$50722 


#ZBIT,CC.EXP 
R2.EXP 
R3.EXP 
$50723 


R 
DSLEN1 ,RO 
DSLEN1 , TEMPO 


(R1)+,(RO)+ 
TEMPO 


TEMPO 
$50724 


DATAOO, DATTYP 
#107777 ,DATTYP 





on 


CJKDGA, KEF11-B CIS DIAGNOSTIC 
CJKDGA.P11 


=33 


ST ee Lr 


SSS SS SSS SSS S's 
WDWNAWE WM 


NUS 


6421 


022740 


12=MAR-80 


005737 
001404 
023727 
001020 
005300 
111037 
142737 
123727 
001006 
012737 
052737 


023727 
001404 
023727 
001044 
023727 
001002 
005300 
000406 
012700 
062700 
163700 


111037 
012701 


112137 
005201 


023737 
001371 


005301 


13:37 
000462 
000462 


000474 
000017 
000474 


177777 
000010 


000462 


000462 


000462 


000474 
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010000 


000474 
000160 


000446 
000520 


020000 


030000 


020000 


000476 


LET RO := RO = #1 
LET TEMPO :B= (RO) CLR.BY #17 


SEQ 0142 
DATTYP 
$50726 
DATTYP,410000 
$50727 


$50726: 
POINT TO LAST BYTE 
DEC RO 


MOVB _— (RO), TEMPO 
BICB  #17,TEMPO 
IFB TEMPO EQ #160 THEN :NEGATIVE 
CMPB —s« TEMPO, #160 
BNE $50730 
LET SIGNO := #1 
MOV #-1,SIGNO 
LET CC.EXP := CC.EXP SET.BY #NBIT 
BIS #NBIT,CC.EXP 
ENDIF 
$50730: 
ENDIF 
$50727: 
IF DATTYP EQ #20000 OR DATTYP EQ #30000 THEN  ;*®** OVERPUNCH *«* 
CMP DATTYP, 420000 
BEQ $50731 
CMP DATTYP,#30000 
BNE $50732 
$50731: 
IF DATTYP EQ #20000 THEN : TRAILING 
CMP DATTYP,#20000 
BNE $50733 
LET RO := RO - #1 
DEC RO 
ELSE LEADING 
$50734 
$50733: 
LET RO := #DSBUF1 + #10. = DSLEN1 
MOV #DSBUF 1,RO 
ADD #10. ,RO 
SUB DSLEN1,RO 
ENDIF 
$50734: 
LET TEMPO :B= (RO) :GET SIGN/DIGIT 
(RO) , TEMPO 
LET R1 := #SGNDGT ; TABLE ADDRESS 
#SGNDGT,R1 
REPEAT 
$50735: 
LET TEMP1 :B= (R1)+ 
MOVB = (R11) +, TEMP1 
LET R1 := R1 + #1 ;SKIP OVER ONE ENTRY wt 
UNTIL TEMPO EQ TEMP1 
CMP TEMPO, TEMP! 


LET R71 := R1 = #1 


BNE 
:BACK UP TO CORRECT ENTRY 
DEC R1 
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022742 IFB #BITO7 SETIN (R1) THEN sNEGATIVE 
132711 000200 #B81T07,(R1) 
001406 E $50736 


LET CC.EXP := CC.EXP SET.BY #NBIT 

052737 000010 000520 ANBIT,CC.EXP 
LET SIGNO := #1 

012737 177777 000446 por #-1,S1GNO 


$50736: 
LET (RO) :B= (R1) CLR.BY #BITO7 PUT CORRECT DIGIT INTO INTERMEDIATE RES 
MOVB (R1), (RO) 


111110 
142710 BICB #81707, (RO) 
ENDIF 


$50732: 
IF DATTYP EQ #50000 THEN sLEADING SEPARATE 
023727 CMP . DATTYP,#50000 
001003 $50737 
LET R1 := DATAO!] = #1 ;POINT TO SIGN 
013701 MO DATAO1,R1 
005301 R1 
ENDIF 


$50737: 
IF DATTYP EQ #50000 OR DATTYP EQ #40000 THEN 
023727 000462 DATTYP, 450000 
001404 $50740 
023727 000462 DATTYP, #40000 
001011 $50741 
$50740: 
IFB (R1) EQ #55 THEN sNEGATIVE 


121127 000055 CMPB (R1) ,455 
001006 BNE $50742 
LET SIGNO := #-1 


012737 177777 MOV #-1,S1GNO 
LET CC.EXP := CC.EXP SET.BY 4NBIT 
052737 000010 #NBIT,CC.EXP 


ENDIF 
. $50742: 
ENDIF 
$50741: 


ENDIF 
$50725: 
;CLEAR OUT UPPER NIBBLE OF Tee he os RESULTS 
INCR RO FROM #DSBUF1 TO #DSBUF1+37 B 
012700 #DSBUF 1 ,RO 
000401 $50743 
$50744: 


005200 RO 
020027 ee oe | a wOSBUF 1+37 
+ 
003603 $5674 
LET (RO) :B= (RO) CLR.BY #360 
142710 #360, (RO) 
ENDINC 
000771 $50744 


$50745: 
:LOAD UP R2.EXP AND R3.EXP WITH FINAL RESULT 





on 


ere KEF11~B8 CIS DIAGNOS 


TI 
CJKDGA.P1 12-MAR-80 13:37 


1 


023142 


023142 


023154 


023156 
023156 


023210 


004737 


023727 
001014 


052737 


052737 


013700 
013701 
005002 
005003 


076053 


013737 
042737 
023737 
001402 


004737 


C 


031266 


000446 


000010 
000526 
000530 


000001 


000560 
000562 


177776 
177760 
000516 


056274 
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177777 


000520 


000520 


000516 
000516 
000520 


CALL CVTIL 
IF SIGNO EQ #=1 THEN 


LET CC.EXP := CC.EXP SET.BY ANBIT 


IF R2.EXP NE #0 OR R3.EXP NE #0 THEN 


LET CC.EXP := CC.EXP SET.BY ACBIT 


ENDIF 
ENDIF 


i+ 
; SET UP RO THRU R3 


LET RO := DATAOO 


LET R1 := DATAO1 
LET R2 := #40 
LET R3 := 40 


+ 


e 


INLINE <CVTNL> 


i+ 
: CHECK CONDITION CODES AND GPR'S FOR CORRECT RESULTS. 


LET CC := PSW 


LET CC := CC CLR.BY #177760 
IF CC NE CC.EXP THEN 


CALI. ERROR 
ENDIF 


+ DO THE CIS INSTRUCTION 


:SRC.DSCR 
:SRC.DSCR 


MOV 
MOV 
CLR 
CLR 


CVTNL 


SEQ 0144 


PC,CVTIL 


SIGNO,4=-1 
$50746 


WNBIT,CC.EXP 


R3.EXP 
$50750 


ACBIT,CC.EXP 


DATAOO ,RO 
DATAO1,R1 
R2 


R5 


PSwW,CC 
#177760,CC 


CC,CC.EXP 
$567571 


PC ,,ERROR 


CJKDGA, KEF11-8 CIS DIAGNOS 
12=MAR-80 


CJKDGA.P11 


02 
023312 
023312 


023316 


020037 
001402 


004737 


020137 
001402 


004737 


020237 
001402 


004737 


020337 
001402 


004737 


020437 
001402 


004737 


020537 
001402 


004737 


062737 
005337 
005737 
001402 
000137 


TI 
13:37 
000522 


056274 


000524 


056274 


000526 


056274 


000530 


056274 


000532 


056274 


000534 


056274 


000004 
000466 


000466 


022340 


C 12 
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IF RO NE RO.EXP THEN 


CALL ERROR 
ENDIF 
IF Ri NE R1.EXP THEN 


CALL ERROR 
ENDIF 
IF R2 NE R2.EXP THEN 


CALL ERROR 
ENDIF 
IF R3 NE R3.EXP THEN 


CALL ERROR 
ENDIF 
IF R4 NE R4.EXP THEN 


CALL ERROR 
ENDIF 
IF R5 NE RS.EXP THEN 


CALL ERROR 
ENDIF 


LET TSTCAS := TSTCAS + #4 
LET COUNT := COUNT - #1 
UNTIL COUNT EQ #0 


COUNT NE #0 THEN 


INLINE <JMP $5053> 


ENDIF 


$50752: 


$50753: 


$50754: 


$50755: 


$50756: 


$50757: 


$50760: 


CMP RO,RO.EXP 
BEQ $50752 
JSR PC,ERROR 
CMP R1,R1.EXP 
BEQ $50753 
JSR PC ERROR 
CMP R2,R2.EXP 
BEQ $50754 
JSR PC,ERROR 
CMP R3,R3.EXP 
BEQ $50755 
JSR PC,ERROR 
CMP R4,R4G.EXP 
BEQ $50756 
JSR PC ERROR 
CMP R5.RS.EXP 
BEQ $50757 
JSR PC ERROR 
ADD #4, TSTCAS 
DEC COUNT 

TST COUNT 

BEQ $50760 
JMP $5053 


SEQ 0145 
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TI 
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CJKDGA.P1 SEQ 0146 

6596 ; DO ONE INLINE CASE = CVTNL] 

6597 j= 

6598 

6599 023330 CALL CLRREG 

6600 023330 004737 055330 JSR PC, CLRREG 

6601 023334 CALL CLRDSB 

6602 023334 004737 055520 JSR PC,CLRDSB 

6603 023340 INLINE <CVTNLI> 

6604 023340 076153 CVTNLI 

6605 023342 INLINE <. WORD TCVNLI> 

6606 023342 024324 «WORD TCVNLI 

6607 023344 INLINE <.WORD TCVNLI+4> 

6608 023344 024330 «WORD TCVNLI+4 

6609 023346 LET CC := PSW 

6610 023346 013737 177776 000516 MOV PSwW,CC 

6611 023354 LET CC := CC CLR.BY #177760 

6612 023354 042737 177760 000516 BIC #177760,CC 

6613 023362 IF CC NE #0 THEN 

6614 023362 005737 000516 TST cc 

6615 023366 001402 BEQ $50761 

6616 023370 CALL ERROR 

6617 023370 004737 056274 JSR PC,ERROR 

6618 023374 ENDIF 

6619 023374 $50761: 

6620 023374 IF RO NE #0 OR R1 NE #0 OR R2 NE #0 THEN 

6621 023374 005700 TST RO 

6622 023376 001004 BNE $50762 

6623 023400 005701 TST R1 

6624 023402 001002 BNE $50762 

6625 023404 005702 TST R2 

6626 023406 001402 BEQ $50763 

6627 023410 $50762: 

6628 023410 CALL EXROR 

6629 023410 004737 056274 JSR PC,ERROR 

6630 023414 ENDIF 

6631 023414 $50763: 

6632 023414 IF R3 NE #0 OR R4 NE 40 OR RS NE 40 THEN 

6633 023414 005703 TST ps 
023416 001004 BNE $50764 

6635 023420 005704 TST R 
023422 001002 BNE $50764 

6637 023424 005705 TST RS 

6638 023426 001402 BEQ $50765 

6639 023430 $50764: 

6640 023430 CALL ERROR 

6641 023430 004737 056274 JSR PC ERROR 

6642 023434 ENDIF 

66435 023434 $50765: 

6644 023434 IF TCVNLI+4 NE #32707 THEN 

6645 023434 023727 024330 032707 CMP TCVNLI+4,432707 

0646 023442 001402 BEQ $50766 

6647 023444 CALL ERROR 

6648 023444 004737 056274 JSR PC,ERROR 

6649 023450 ENDIF 

6650 023450 $50766: 


6651 023450 IF TCVPLI*6 NE #41072 THEN 


om 


340 


341 
it2 
ges 
3+4 
3+5 
:+6 
3+7 
3+8 
:+9 
:70 


$50767: 


(MP 
BEQ 


JSR 


JMP 


SEQ 0147 
TCVPL1+6,441072 
$50767 


PC,ERROR 


XCVTPN 


E 12 
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6652 023450 023727 022302 041072 

6653 023456 001402 

6654 023460 CALL ERROR 

6655 023460 004737 056274 

6656 023464 ENDIF 

6657 023464 

6658 023464 INLINE <JMP-— XCVTPN> 

6659 023464 000137 024346 

6660 

6661 

6662 

6663 

6664 th 

6665 ; TABLE FOR INTERPRETING ACCEPTABLE SIGN/DIGIT COMBINATIONS FOR OVERPUNCH 

6667 

6668 023470 173 000 060 SGNDGT: .BYTE  173,0,60,0,133,0.77,0 

6669 023473 000 133 000 

6670 023476 077 000 

6671 023500 101 001 061 BYTE 101,1,61,1 

6672 023503 001 

6673 023504 102 002 062 -BYTE 102,2,62,2 

6674 023507 002 

6675 023510 103 003 063 BYTE 103,3,63,3 

6676 023513 003 

6677 023514 104 004 064 -BYTE 104,4,64,4 

6678 023517 004 

6679 023520 105 005 065 -BYTE 105,5,65,5 

6680 023523 005 

6681 023524 106 006 066 -BYTE 106,6,66,6 

6682 023527 006 

6683 023530 107 007 067 -BYTE 107,7,67,7 

6684 023533 007 

6685 023534 110 010 070 -BYTE 110,10,70,10 

6686 023537 010 

6687 023540 111 011 071 -BYTE = 111,11,71,11 

6688 023543 011 

6689 023544 175 200 135 -BYTE 175,200,135,200,41,200,72,200 

6690 023547 200 041 200 

6691 023552 072 

6692 023554 112 201 -BYTE 712,201 

6693 023556 113 202 -BYTE 113,202 

6694 023560 114 203 -BYTE 114,203 

6695 023562 115 204 -BYTE 115,204 

6696 023564 116 205 -BYTE 116,205 

6697 023566 117 -BYTE 117,206 

6698 023570 120 207 -BYTE 120,207 

6699 023572 121 210 -BYTE 121,210 

oo” 023574 122 211 -BYTE 122,211 

6702 

6703 

67046 * 

6705 

6706 34 

6707 ; TABLE OF TEST CASES FOR CVTNL 


on 
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SEQ 0148 
6708 j= 
6709 
ort? 023576 000055 TCVTNL: .WORD 45, 3 OF TEST CASES FOR CVTNL 
6712 023600 000000 -WORD 0 ;SRC. DATA TYPE AND LENGTH 
oni 023602 024065 WORD CVTNL1 sPOINTER TO SRC. STRING 
6715 023604 050000 . WORD 50000 sTEST CASE NUMBER 2 
orig 023606 024067 «WORD CVTNL2 
6718 023610 040004 «WORD 40004 Zs TEST CASE NUMBER 3 
ory 023612 024071 «WORD CVINL3 
6721 023614 050004 «WORD 50004 TEST CASE NUMBER 4 
ore 023616 024077 -WORD CVTNL4 
6724 023620 030007 . WORD 30007 : TEST CASE NUMBER 5 
ore? 023622 024104 «WORD CVTNLS 
6727 023624 000002 «WORD 2 TEST CASE NUMBER 6 
ores 023626 024114 . WORD CVTNL6 
6730 023630 020005 .~WORD 20005 Zs TEST CASE NUMBER 7 
e731 023632 024117 «WORD CVTNL7 
6733 023634 010005 -WORD 10005 ;TEST CASE NUMBER 8 
pelo 023636 024125 -WORD CVINL8 
6736 023640 040004 -WORD 40004 TEST CASE NUMBER 9 
et 34 023642 024133 -WORD CVINLO 
6739 023644 000012 WORD 12 ; TEST CASE NUMBER 10 
~*~ 023646 024141 -WORD CVITNLA 
6742 023650 020002 «WORD 20002 TEST CASE NUMBER 11 
on? 023652 024154 -WORD CVINLB 
6745 023654 020002 WORD 20002 ; TEST CASE NUMBER 12 
hy 023656 024157 -WORD CVTNLC 
6748 023660 020002 WORD 20002 ;TEST CASE NUMBER 13 
yeh 023662 024162 «WORD CVTNLD 
6751 023664 020002 . WORD 20002 : TEST CASE NUMBER 14 
6735 023666 024165 -WORD CVINLE 
6754 023670 020002 -WORD 20002 ; TEST CASE NUMBER 15 
or2? 023672 024170 -WORD CVITNLF 
6757 023674 020002 «WORD 20002 : TEST CASE NUMBER 16 
ore 023676 024173 «WORD CVINLG 
6760 023700 020002 WORD 20002 ; TEST CASE NUMBER 17 
ore} 023702 024176 -WORD CVINLH 


6763 023704 020002 -WORD 20002 :TEST CASE NUMBER 18 


an 
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Sree 023706 024201 -WORD CVTNL$ 
6766 023710 020002 -WORD 20002 TEST CASE NUMBER 19 
e424 023712 024204 -WORD CVITNLJ 
6769 023714 020002 -WORD 20002 ; TEST CASE NUMBER 20 
ern 023716 024207 «WORD CVTNLK 
6772 023720 020002 -WORD 20002 ;TEST CASE NUMBER 21 
ort? 023722 024212 «WORD CVTNLL 
6775 023724 020002 -WORD 20002 i TEST CASE NUMBER 22 
ore 023726 024215 -WORD  CVTNLM 
6778 023730 020002 -WORD 20002 :TEST CASE NUMBER 23 
eran 023732 024220 «WORD CVTNLN 
6781 023734 020002 -WORD 20002 TEST CASE NUMBER 24 
ort 023736 024223 -WORD CVTNLO 
6784 023740 020002 -WORD 20002 TEST CASE NUMBER 25 
ore? 023742 024226 «WORD CVTNLP 
6787 023744 020002 -WORD 20002 TEST CASE NUMBER 26 
gh 023746 024231 -WORD CVTNLQ 
6790 023750 020002 -WORD 20002 : TEST CASE NUMBER 27 
orp 023752 024234 -WORD CVITNLR 
6793 023754 020002 -WORD 20002 TEST CASE NUMBER 28 
on 023756 024237 -WORD CVTNLS 
6796 023760 020002 -WORD 20002 i TEST CASE NUMBER 29 
on 023762 024242 «WORD CVITNLT 
6799 023764 020002 -WORD 20002 : TEST CASE NUMBER 30 
oo 023766 024245 -WORD CVTNLU 
6802 023770 020002 -WORD 20002 :TEST CASE NUMBER 31 
pity 023772 024250 -WORD CVTNLV 
6805 023774 020002 -WORD 20002 :TEST CASE NUMBER 32 
oo 023776 024253 -WORD CVTNLW 
6808 024000 020002 -WORD 20002 :TEST CASE NUMBER 33 
rst 024002 024256 -WORD CVTNLX 
6811 024004 020002 «WORD 20002 :TEST CASE NUMBER 34 
pe ¢ 024006 024261 -WORD CVTNLY 
6814 024010 020002 -WORD 20002 :TEST CASE NUMBER 35 
1 024012 024264 «WORD CVTNLZ 
6817 024014 020002 -WORD 20002 2: TEST CASE NUMBER 36 
dt | 024016 024267 -WORD (VTNAA 


an 
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024020 020002 «WORD 20002 i TEST CASE 
024022 024272 -WORD CVTNBB 


024024 020002 «WORD 20002 ;TEST CASE 
024026 024275 «WORD CVINCC 


024030 020002 «WORD 20002 s TEST CASE 
024032 024300 -WORD CVTNDD 


024034 020002 -WORD 20002 iTEST CASE 
024036 024303 «WORD CVTNEE 


024040 020002 -WORD 20002 TEST CASE 
024042 024306 -WORD CVITNFF 


024044 020002 -WORD 20002 i TEST CASE 
024046 024311 -WORD CVITNGG 


024050 020002 -WORD 20002 ; TEST CASE 
024052 024314 «WORD CVTNHH 


024054 020002 -WORD 20002 TEST CASE NUMBER 
024056 024317 «WORD CVINII 


024060 020002 -WORD 20002 : TEST CASE NUMBER 45 
024062 024322 «WORD CVTNJJ 


024064 -BYTE :FOR LEADING SEPARATE SIGN 
024065 CVTNL1: .BYTE :DECIMAL NUMERIC SRC STRING 1 


024066 -BYTE 055 
024067 CVTINL2: .BYTE DECIMAL NUMERIC SRC STRING 2 


024070 000 -BYTE 
on 060 CVTNL3: .BYTE  061,06U,061,060,053 :DECIMAL NUMERIC SRC STRING 3 


024076 -BYTE 053 
svg he 061 CVTNL4: .BYTE 061,060,061,065 DECIMAL NUMERIC SRC STRING 4 


024103 000 -BYTE 
CVTNLS: .BYTE 112,020,000,000,000,007,002 DECIMAL NUMERIC SRC STRING 5 


024112 


024113 
024114 


024116 
024117 
024122 


024124 
024125 
024130 


CVTNL6: .BYTE 001,171 DECIMAL NUMERIC SRC STRING 6 


-BYTE 
CVTNL7: .BYTE 003,001,002,000,107 sDECIMAL NUMERIC SRC STRING 7 


-BYTE 
CVTNL8: .BYTE 001,000,002,000,067 DECIMAL NUMERIC SRC STRING 8 


S88 888 &8 88s 





an 
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CJKDGA.P11 SEQ 0151 


-BYTE 
CVTNL9: .BYTE 061,060,061,060,053 DECIMAL NUMERIC SRC STRING 9 


«BYTE 
CVTNLA: .BYTE 002,001,004,007,004,010,003,006,004,067 ;DECIMAL NUMERIC SRC STR A 
024152 


024153 000 . 
024154 CVTNLB: . 61,173 DECIMAL STRING 


024156 . 
024157 CVTNLC: . 61,60 : DECIMAL STRING 


024161 
024162 


024164 
024165 


024167 
024170 


024172 
024173 


024175 
024176 


024200 
024201 


024203 
024204 


024206 
024207 


024211 
024212 


024214 
024215 
024217 
024220 


024222 
024225 


024225 
024226 


CVINLD: . 61,133 ;DECIMAL STRING 
CVTNLE: . 61,77 DECIMAL STRING 
CVTNLF: . 61,101 DECIMAL STRING 
CVTNLG: . 61,61 DECIMAL STRING 16 
CVTNLH: 61,102 DECIMAL STRING 
CVTNLS: 61,62 DECIMAL STRING 
CVTNLJ: 61,103 DECIMAL STRING 
CVTNLK: 61,63 DECIMAL STRING 20 
CVTNLL: 61,104 DECIMAL STRING 21 
CVTNLM: 61,64 DECIMAL STRING 22 
CVTNLN: 61,105 DECIMAL STRING 23 


CVTNLO: . 61,65 : DECIMAL STRING 24 


000 
061 
000 
061 
000 
061 
000 
061 
000 
061 
000 
061 
000 
061 
000 
061 
000 
061 
000 
061 
000 
061 
000 
061 
000 
061 


CVTNLP: 61,106 : DECIMAL STRING 25 





an 
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6932 024230 000 -BYTE 
OR 024231 061 066 CVTNLQ: .BYTE 61,66 DECIMAL NUMERIC SRC STRING 26 
6935 024233 000 -BYTE 
$338 024234 061 107 CVTINLR: .BYTE 61,107 DECIMAL NUMERIC SRC STRING 27 
6938 024236 000 -BYTE 
+44 024237 061 067 CVTNLS: .BYTE 61,67 ;DECIMAL NUMERIC SRC STRING 28 
6941 024241 000 -BYTE 
oe 024242 061 110 CVTINLT: .BYTE 61,110 DECIMAL NUMERIC SRC STRING 29 
6944 024244 000 -BYTE 
eek 024245 061 070 CVTNLU: .BYTE 61,70 DECIMAL NUMERIC SRC STRING 30 
6947 024247 000 -BYTE 
ox 024250 061 111 CVTINLV: .BYTE 61,111 DECIMAL NUMERIC SRC STRING 31 
6950 024252 000 -BYTE 
693 024253 061 071 CVTINLW: .BYTE 61,71 DECIMAL NUMERIC SRC STRING 32 
6953 024255 000 -BYTE 
ore 024256 061 175 CVINLX: .BYTE 61,175 DECIMAL NUMERIC SRC STRING 33 
6956 024260 000 -BYTE 
ele 024261 061 135 CVTNLY: .BYTE 61,135 DECIMAL NUMERIC SRC STRING 34 
6959 024263 000 -BYTE 
os 024264 061 041 CVTINLZ: .BYTE 61,41 DECIMAL NUMERIC SRC STRING 35 
6962 024266 000 -BYTE 
or 024267 061 072 CVTNAA: .BYTE 61,72 DECIMAL NUMERIC SRC STRING 36 
6965 024271 090 -BYTE 
one 024272 061 112 CVTNBB: .BYTE 61,112 DECIMAL NUMERIC SRC STRING 37 
6968 024274 000 -BYTE 
y+ 14 024275 061 113 CVINCC: .BYTE 61,113 DECIMAL NUMERIC SRC STRING 38 
6971 024277 000 -BYTE 
oor6 024300 061 114 CVTINDD: .BYTE 61,114 DECIMAL NUMERIC SRC STRING 39 
6974 024302 000 -BYTE 
or? 024303 061 115 CVINEE: .BYTE 61,115 DECIMAL NUMERIC SRC STRING 40 
6977 024305 000 -BYTE 
on 024306 061 116 CVINFF: .BYTE 61,116 DECIMAL NUMERIC SRC STRING 41 
6980 024310 000 -BYTE 
oe 024311 061 117 CVINGG: .BYTE 61,117 DECIMAL NUMERIC SRC STRING 42 
6983 024313 000 -BYTE 
one 024314 061 120 CVTNHH: .BYTE 61,120 DECIMAL NUMERIC SRC STRING 43 
6986 024316 000 -BYTE 
6987 024317 061 121 CVTINII: .BYTE 61,121 DECIMAL NUMERIC SRC STRING 44 


an 
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024321 


000 
024322 CVTINJJ: 


024324 TCVNLI: 


061 NLT: 
061 
061 


«BYTE 


-EVEN 


DECIMAL NUMERIC SRC STRING 45 


TEST CASE 

DATA _TYPE = SIGNED ZONED, LENGTH = 12 
ADDRESS OF DECIMAL SRC STRING 

LONG INTEGER RESULT, tow 

[LONG INTEGER RESULT, HI, AND SIGN 


61,61,61,61,61,61,61,61,61,61 3 = +11111711111 IN BCD 





an 
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~SBTTL CVTPN 


SF RRR RRR REE ERE ERR RK ERE RRR REE EERE ERR 


: CVTPN TEST 


. 
FARRER RRR REE EERE EERE EERE RRR REE ERE ER ee 


INLINE <XCVTPN:> 
XCVTPN: 


INLINE <SCOPE> 
000004 SCOPE 
LET $STIMES := 2320 : ITERATION COUNT 
013737 002320 000404 MOV 2320, $TIMES 
LET COUNT := TCVTPN GET TEST COUNT 
013737 026262 000466 MOV TCVTPN, COUNT 
LET TSTCAS := #TCVTPN+2 ;POINT TO FIRST TEST CASE 
012737 026264 000542 MOV #TCVTPNt+2, TSTCAS 


;REPEAT 
024372 INLINE <$5054:> 
024372 $5054: 


ge 
; GET TEST DATA FROM TABLE 


024372 LET RO := TSTCAS 

013700 MOV TSTCAS ,RO 
LET DATAOO := (RO)+ SRC DATA TYPE AND LENGTH 

012037 MOV (RO) +,DATAOO 
LET DATAO1 := (RO)+ :POINTER TO PACKED SRC STRING 

012037 MOV (RO) + ,DATAOT 
LET DATAO2 := (RO) :DST.LEN 

011037 MOV (RO) ,DATAO2? 


* 
; SET UP RO.EXP, R1.EXP, R3.EXP, R4.EXP, RS.EXP, R4, AND RS. 


LET RO.EXP : 
005037 000522 RO.EXP 
LET R1.EXP : 
005037 000524 R1.EXP 
LET R3.EXP := #DS.DST 
012737 062474 #DS.DST.R3.EXP 
IF #1 SETIN COUNT THEN 
032737 000001 #1. COUNT 
001405 $50770 
LET R4 := #-1 
012704 177777 #-1.R4 
LET RS := #-1 
012705 177777 #-1,R5 
ELSE 
000402 BR $50771 
$50770: 
LET R44: 


005004 RG 
LET RS : 





aa 


CJKDGA, KEF11-B CIS DIAGNOSTIC MACY11 30 
12=MAR-80 


CJKDGA.P11 


7063 


71 
7107 
7108 


— td ed 


i i Pe i eB | 
DNAnRWw=@ODS 


Se ee 
— a os SS YS 


024454 


024472 


024476 


005005 


010437 
010537 


004737 
005037 


013737 
042737 


013737 


013700 
006200 
063700 
111001 
142701 
023727 
103003 


13:37 


000532 
000534 


055520 
000520 


000560 
070000 


000564 


000560 
000512 


000446 


000512 
000512 


000514 


070000 


C 
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ENDIF 
LET R4&.EXP : 
LET RS.EXP 


CALL CLRDSB 
LET CC.EXP : 


i+ 
; PUT THE SOURCE 
; LENGTH INTO DS 


LET DSLEN1 : 


LET DSLEN2 : 


i+ 
; LET SIGNO 


#0 


DATAOO CLR.BY #70000 


DATAO02 


3+ 
3 INITIALIZE THE DECIMAL STRING BUFFERS AND CC.EXP. 


REFLECT THE SIGN OF THE SOURCE STRING. 


LET RO := DSLENT 


INLINE 


LET R1 


<ASR RO> 
LET RO := RO + DATAO1 
:B= (RO) CLR.BY #360 


GET THE SIGN NIBBLE 


IF DATAOO HIS #70000 OR DSLEN1 EQ #0 THEN 


LET SIGNO := #0 


ELSE 


IF R1 EQ #14 THEN 


$50771: 


9 wine INTO DSLEN1; PUT THE DESTINATION 


$50772: 


$50773: 


JSR 
CLR 


MOV 
BIC 


MOV 


ASR 
;POINT TO THE END OF THE STRING we 


SEQ 0155 
R5 


R4,R4.EXP 
R5,R5.EXP 


PC,CLRDSB 
CC.EXP 


DATAOO ,DSLEN1 
#70000 ,DSLEN1 


DATAO2 ,DSLEN2 


DSLEN1 ,RO 
RO 
DATAO1 .RO 


(RO) ,R1 
#360,R1 


DATAOO ,#70000 
$50772 
DSLEN1 
$50773 
S1GNO 


$50774 


aM 
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020127 000014 R1,414 
001003 


$50775 

LET SIGNO : 
005037 000446 oa SIGNO 
000403 BR $50776 


$50775: 
LET SIGNO : 
012737 177777 #=-1,S1GNO 


ENDIF 
pwr $50776: 
$50774: 


i+ 
; ae. THE NUMBER OF CHARACTERS TO BE MOVED INTO DS.EXP; 


IF DSLEN2 HIS DSLEN1 THEN :DST.LEN >= SRC.LEN 
023737 000512 BSL OMe -DSLEN! 


103403 
LET RO := DSLEN1 
013700 DSLEN1 ,RO 
ELSE :SRC.LEN > DST.LEN 
000402 BR $51000 


$50777: 
LET RO := DSLEN2 
013700 DSLEN2 ,RO 
ENDIF 
024630 $51000: 


i+ 
: MAKE R1 POINT TO THE END OF THE DESTINATION IN DS.EXP; 
: MAKE R2 POINT TO THE END OF THE SOURCE STRING IN THE 

; TABLE OF TEST CASES. 


LET R1 := #DS.EXP + DATAO2 - #1 
012701 MOV #DS.EXP,R1 
063701 000564 DATAO2,R1 
005301 R1 


LET R2 := DSLEN1 

013702 DSLEN1 ,R2 
INLINE <ASR R2> 

006202 R2 
LET R2 := R2 + DATAQ1 

063702 DATAQ1 ,R2 


4 
; MOVE THE LEAST SIGNI 
: TO THE EXPECTED DEST 


FICANT BCD FROM THE SOURCE STRING 
INATION BUFFER, IN UNPACKED FORMAT. 





aA 
+ he 
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7175 

7176 024654 LET R3 :B= (R2) 

7177 024654 111203 MOVB  — (R2) ,R3 
7178 024656 INLINE  <ASH #=4,R3> 

7179 024656 072327 177774 ASH #4 ,R3 
7180 024662 LET (R1) :B= R3 SET.BY #60 CLR.BY #300 

7181 024662 110311 MOVB = R23, (R1) 
7182 024664 152711 000060 BISB #60, (R1) 
7183 024670 142711 000300 BICB #300,(R1) 
7184 024674 LET RO := RO - #1 :DECREMENT COUNT 

7185 024674 005300 DEC RO 
7186 

7187 

A 

7190 : MOVE THE REST OF THE SOURCE TO THE EXPECTED DESTINATION 

7191 > BUFFER, IN UNPACKED FORMAT, USING RO AS A COUNTER FOR 

0192 > THE NUMBER OF CHARACTERS TO MOVE. 

7194 

7195 024676 WHILE RO GT #0 DO 

7196 024676 $51001: 

7197 024676 005700 TST RO 
7198 024700 003425 BLE $51002 
7199 024702 LET R1 := R1 = #1 ;DECREMENT DEST. POINTER 

024702 005301 DEC R1 

7201 024704 LET R2 := R2 - #1 sDECREMENT SRC. POINTER 

7202 024704 005302 DEC R2 
7203 024706 LET (R1) :B= (R2) CLR.BY #300 SET.BY #60 

7204 024706 111211 MOVB = (R2),, (R1) 
7205 024710 142711 000300 BICB  #300.(R1) 
7206 024714 152711 000060 BISB  #60,(R1) 
7207 024720 LET RO := RO - #1 :DECREMENT COUNT 

7208 024720 005300 DEC RO 
7209 024722 IF RO HI #0 THEN :COUNT > 0 

7210 024722 005700 TST RO 

7211 024724 101412 BLOS  $51003 
7212 024726 LET R1 := R1 - #1 ;DECREMENT DEST. POINTER 

7213 024726 005301 DEC R1 

7214 024730 LET R3 :B= (R2) 

7215 024730 111203 MOVB = (R2) ,R3 
7216 024732 INLINE <ASH #-4 ,R3> 

7217 024732 072327 177774 ASH #-4,R3 
7218 024736 LET (R1) :B= R3 CLR.BY #300 SET.BY #60 

7219 024736 110311 MOVB R33, (R1) 
7220 024740 142711 000300 BICB #300,(R1) 
7221 024744 152711 000060 BISB #60,(R1) 
7222 024750 LET RO := RO - #1 ;DECREMENT COUNT 

7223 024750 005300 DEC RO 

7224 024752 ENDIF 

7225 024752 $51003: 

7226 024752 ENDDO 

7227 024752 000751 BR $51001 
7228 024754 $51002: 

7229 

7230 i+ 


aon 
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024754 


024766 
024770 


024770 


02 
025014 
025014 


025014 
025014 


025 
025054 


020127 
003403 


112741 
000772 


005737 
101407 
023727 
001003 


052737 


052737 


023737 
101403 


052737 


C 


062536 


000060 


000514 
000446 


000010 


000512 
000514 


000004 


000512 


000002 
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177777 


000520 


000520 


000514 


000520 


; FILL THE REST OF THE DESTINATION WITH LEADING ZEROES (60'S). 


WHILE R1 GT #DS.EXP DO 


$51004: 
CMP 
BLE 
LET -(R1) :B= #60 
MOVB 
ENDDO 
BR 
$51005: 
i+ 
; PUT THE EXPECTED VALUE OF THE NBIT INTO CC.EXP 
IF DSLEN2 HI #0 AND SIGNO EQ 4-1 THEN _ 
BLOS 
CMP 
BNE 
LET CC.EXP := CC.EXP SET.BY ANBIT 
BIS 
ENDIF 
$51006: 
2¢ 
; PUT THE EXPECTED VALUE OF THE ZBIT INTO CC.EXP 
IF DSLEN1 EQ #0 OR DSLEN2 EQ #0 THEN fer 
BEQ 
TST 
BNE 
$51007: 
LET CC.EXP := CC.EXP SET.BY #ZBIT 
BIS 
ENDIF 
$51010: 


2@ 
; PUT THE EXPECTED VALUE OF THE VBIT INTO CC.EXP 


IF DSLEN1 HI DSLEN2 THEN 7SRC.LEN > DST.LEN 


LET CC.EXP := CC.EXP SET.BY #VBIT 
ENDIF 





R1,4DS.EXP 
$51005 


460 ,-(R1) 
$51004 


DSLEN2 
$51006 
SIGNO,4#=1 
$51006 


ANBIT,CC.EXP 


DSLEN1 
$51007 
DSLEN2 
$51010 


#ZBIT,CC.EXP 


DSLEN1 ,DSLEN2 
$51011 


#VBIT.CC.EXP 


¢; 


on 
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025054 


025074 


025142 


12-MAR-80 


013737 
012700 
063700 
005300 
111037 


012700 


020027 
101002 
105020 


000773 


062737 


023727 
101402 


13:37 


062536 000552 


062536 
000564 


000553 


010000 000462 


000462 050000 


$51011: 


: SAVE THE FIRST AND LAST BYTES OF THE EXPECTED DESTINATION 
i IN DSTMPO AND DSTMP1. 


LET DSTMPO := DS.EXP 
LET RO := #DS.EXP + DATAO2 - #1 


LET DSTMP1 :B= (RQ) 


3? 

; DO THE CVTPN INSTRUCTION, CONVERTING EACH PACKED SOURCE 

: STRING INTO ALL SIX NUMERIC DATA TYPES. DS.EXP WILL HAVE 
; TO BE ALTERED FOR EACH DATA TYPE. 

=~ ss 


; INCR DATTYP FROM #0 TO #50000 BY #10000 
INLINE <CLR DATTYP> 


INLINE <BR $5402> 
INLINE <$5401:> 


;CLEAR THE DESTINATION BUFFER 
LET RO := #DS.DST-1 
WHILE RO LOS #DS.DST+37 DO 


$51012: 
C 


LET (RO)+ :B= #0 
ENDDO 


$51013: 


: INCREMENT DATTYP 

LET DATTYP := DATTYP + #10000 
INLINE <$5402:> 

IF DATTYP HI #50000 THEN 


INLINE <JMP $5403> 


DS.EXP,DSTMPO 
#DS.EXP,RO 
CATAO2 ,RO 

RO 


(RO) ,DSTMP1 


DATTYP 
$5402 


#DS .DST-1,RO 
RO, ADS .DST+37 
$51013 


(RO) + 
$51012 
#10000 ,.DATTYP 


DATTYP, #50000 
$51014 





on 
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7343 025142 000137 026044 JMP $5403 
7344 025146 ENDIF 
om? 025146 $51014: 
A st RESTORE FIRST AND LAST BYTES OF DESTINATION 
7349 025146 LET DS.EXP :B= DSTMPO 
7350 025146 113737 000552 062536 MOVB DSTMPO,DS.EXP 
7351 025154 IF DATAQ2 NE #0 THEN 
7352 025154 005737 000564 TST DATAO2 
7353 025160 001406 BEQ $51015 
7354 025162 LET RO := #DS.EXP=1 + DATAO2 
7355 025162 012700 062535 MOV #DS.EXP-1,RO 
7356 025166 063700 000564 ADD DATAO2,RO 
7357 025172 LET (RO) :B= DSTMP1 
7358 025172 113710 000553 MOVB DSTMP1, (RO) 
7359 025176 ENDIF 
oat 025176 $51015: 
7362 :*** SIGNED ZONED *** 
7363 025176 IF DATTYP EQ #0 THEN 
7364 025176 005737 000462 TST DATTYP 
7365 025202 001022 BNE $51016 
7366 025204 LET DS.EXP=1 :B= #0 RESTORE AFTER LEADING SEPARATE 
7367 025204 105037 062535 CLRB DS.EXP=1 
7368 025210 IF DATAO2 HI #0 THEN iDST.LEN > 0 
7369 025210 005737 000564 TST DATAO2 
7370 025214 101415 BLOS $51017 
7371 025216 LET RO := #DS.EXP-1 + DATAO2 
7372 025216 012700 062535 MOV #DS.EXP-1,RO 
7373 025222 063700 000564 ADD DATAO2 RO 
7374 025226 IF #NBIT NOTSETIN CC.EXP THEN :SIGN IS + 
7375 025226 032737 000010 000520 BIT #NBIT,CC.EXP 
7376 025234 001003 BNE $51020 
7377 025236 LET (RO) :B= (RO) SET.BY #60 
7378 025236 152710 000060 BIS8 #60, (RO) 
7379 025242 ELSE :SIGN IS - 
7380 025242 000402 BR $51021 
7381 025244 $51020: 
7382 025244 LET (RO) :B= (RO) SET.BY 4160 
7383 025244 152710 000160 BISB #160, (RO) 
7384 025250 ENDIF 
7385 025250 $51021: 
7386 025250 ENDIF 
7387 025250 $51017: 
7388 025250 ENDIF 
7389 025250 $51016: 
7390 
7391 ;*** UNSIGNED ZONED *** 
7392 025250 IF DATTYP EQ #10000 THEN 
7393 025250 023727 000462 010000 CMP DATTYP, #10000 
7394 025256 001014 BNE $51022 
7395 025260 IF DATAO2 HI #0 THEN iDST.LEN > 0 
7396 025260 005737 000564 iST DATAO2 
7397 025264 101406 BLOS $51023 


7398 025266 LET RO := #DS.EXP=1 + DATAO2 





on 
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025310 


025310 
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012700 
063700 


152710 


042737 


023727 
001047 
005737 
101407 
023727 
001003 
052737 


005737 
101432 


005737 
001407 
023727 
001003 
052737 


012700 
063700 


113701 
142701 
023727 
001002 
062701 


116110 


13:37 


062535 
000564 


000060 


000010 


000462 


000514 
000446 


000010 


000564 


000512 
000446 


000010 
062535 
000564 
000553 
000060 
000446 


000012 


055254 
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000520 


029000 


177777 


000520 


177777 


000520 


177777 


MOV 


ADD 
;PUT IN UNSIGNED ''SIGN’’ 
BISB 


$51023: 
BIC 
$51022: 


LET (RO) :B= (RO) SET.BY #60 
ENDIF 
LET CC.EXP := 
ENDIF 


CC.EXP CLR.BY #NBIT 


;*** TRAILING OVERPUNCH *** 


IF DATTYP EQ #20000 THEN 


IF DSLEN2 HI #0 AND SIGNO EQ 4-1 THEN 


LET CC.EXP := 
ENDIF 
IF DATAO2 HI #0 THEN 


CC.EXP SET.BY #NBIT 


$51025: 
:DST.LEN > 0 


IF DSLEN1 NE #0 AND SIGNO EQ 4-1 THEN 


LET CC.EXP := 
ENDIF 
LET RO := 


CC.EXP SET.BY ANBIT 
$51027: 

#DS.EXP-1 + DATAO2 sPOINT TO LAST DST BYTE 

ADD 


MOVB 
BICB 


CMP 


LET R1 :B= DSTMP1 CLR.BY #60 GET LSD 


IF SIGNO EQ #-1 THEN 


LET R1 := 
ENDIF 
LET (RO) :B= OVPNCH(R1) 
ENDIF 
ENDIF 


R1 + #10. 


$51026: 
$51024: 


BNE 
FORM OVPNCH TABLE — 


$51030: 
GET CORRECT SIGN/DIGIT 
MOVB 


SEQ 0161 


#DS .EXP=1,RO 
DATAO2 ,RO 


#60, (RO) 


ANBIT,CC.EXP 


DATTYP,420000 
$51024 


351025 
#NBIT,CC.EXP 


DATAO2 
$51026 


DSLEN1 
$51027 
SIGNO,#=1 
$51027 


ANBIT,CC.EXP 


#DS .EXP-1 ,RO 
DATAO2 ,RO 


DSTMP1,R1 
#60,R1 


o 


SIGNO, #1 
$51036 


#10.,R1 


OVPNCH(R1), (RO) 





an 
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;*** LEADING OVERPUNCH *** 
IF DATTYP EQ #30000 THEN 
023727 000462 030000 CMP DATT YP, #30000 
001020 BNE $51037 
IF DATAO2 HI #0 THEN :DST.LEN > 0 
005737 000564 TST DATAO2 
101415 BLOS $51032 
LET R1 :B= DSTMPO CLR.BY #60 GET MSD 
113701 000552 MOVB DSTMPO,R1 
142701 000060 BICB #60,R1 
IF #NBiT SETIN CC.EXP THEN 
032737 000010 000520 BIT ANBIT,CC.EXP 


001402 BEQ $51033 
LET R17 := R1 + #10. :FORM OVPNCH TABLE OFFSET 
062701 000012 ENDIF ADD #10.,R1 


$51033: 
LET DS.EXP :B= OVPNCH(R1) :GET CORRECT SIGN/DIGIT 
116137 055254 MOVB OVPNCH(R1) ,DS.EX 


ENDIF 
$51032: 
ENDIF 
$51031: 


3*** TRAILING SEPARATE *** 
IF DATTYP EQ #40000 THEN 
023727 000462 DATTYP,440000 
4 $51034 


001015 

LET RO := #DS.EXP + DATAO2 
012700 062536 MOV #DS.EXP,RO 
063700 000564 


DATAO2 RO 
IF #NBIT NOTSETIN CC.EXP THEN SIGN IS + 
032737 000010 000520 ANBIT,CC.EXP 
001003 BNE 


$51035 
LET (RO) :B= #53 
112710 000053 cal #53, (RO) 
000402 BR $51036 


$51035: 
LET (RO) :B= #55 
112710 #55, (RO) 


ENDIF 
$51036: 
ENDIF 
025550 $51034: 


:*** LEADING SEPARATE *** 
025550 IF DATTYP EQ #50000 THEN | 
023727 050000 CMP DATTYP, #50000 
BNE $51037 


001020 
LET RO := #DS.EXP + DATA02 


012700 MOV #DS.EXP RO 
000564 


063700 ADD 
LET (RO) :B= #0 RESTORE AFTER TRAILING SEPARA 
105010 CLRB 


025572 IF #NBIT NOTSETIN CC.EXP THEN SIGN = + 


DATAQ2 ,RO 
TE 
(RO) 





aA 
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SEQ 0163 
7511 025572 032737 000010 000520 SIT ANBIT,CC.EXP 
001004 


025600 BNE $51040 
7513 025602 LET DS.EXP=1 :B= #53 
7514 025602 112737 000053 062535 MOVB #53,DS.EXP=1 
7515 025610 ELSE :SIGN = - 
7516 025610 000403 BR $51041 
7517 + 025612 $51040: 
7518 025612 LET DS.EXP=1 :B= #55 
7519 025612 112737 000055 062535 MOVB #55 ,DS.EXP=1 
7520 025620 ENDIF 
7521 025620 $51041: 
7522 025620 ENDIF 
7523 025620 $51037: 


it 
ex} : SET UP R2.EXP, RO, R1, R2, AND R3; DO THE INSTRUCTION. 


7529 025620 LET RO := DATAOO 3SRC DATA TYPE AND LENGTH 

7530 025620 013700 000560 MOV DATAOO ,RO 
7531 025624 LET R1 := DATAQO1 :SRC POINTER 

7532 025624 013701 000562 MOV DATAO1,R1 
7533 025630 LET R2 := DATAO2 + DATTYP :DST DATA TYPE AND LENGTH 

7534 025630 013702 000564 MOV DATAO2 ,R2 
7535 025634 063702 000462 ADD DATTYP,R2 
7536 025640 LET R3 := #DS.DST DST POINTER 

7537 025640 012703 062474 MOV #DS.DST,R3 
7538 025644 LET R2.EXP := R2 

7539 025644 010237 000526 MOV R2,R2.EXP 
7540 025650 INLINE <CVTPN> 

7541 025650 076054 CVTPN 


Z¢ 
544 : CHECK CONDITION CODES AND Grz"S FOR CORRECT RESULTS. 


7548 025652 LET CC := PSW 

7549 025652 013737 177776 000516 MOV PSW,CC 
7550 025660 LET CC := CC CLR.BY #177760 

7551 025660 042737 177760 000516 BIC #177760,CC 
7552 025666 IF CC NE CC.EXP THEN 

7553 025666 023737 000516 000520 CMP CC,CC.EXP 
7554 025674 001402 BEQ $51042 
7555 025676 CALL ERROR 

7556 025676 004737 056274 JSR PC ERROR 
7557 025702 ENDIF 

7558 025702 $51042: 

7559 025702 IF RO NE RO.EXP THEN 

7560 025702 020037 000522 CMP RO,RO.EXP 
7561 025706 001402 BEQ $51043 
7562 025710 CALL ERROR 

7563 025710 004737 056274 JSR PC ERROR 
7564 925714 ENDIF 

7565 025714 $51043: 

7566 025714 IF R1 NE R1.EXP THEN 


aa 


CJKDGA, KEF11-8 CIS DIAGNO 


CJKDGA.P11 


7567 
7568 


025714 


025776 


025776 
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020137 
001402 
004737 


020237 
001402 


004737 


020337 
001402 


004737 


020437 
001402 


004737 


020537 
001402 


004737 


012700 
012701 


122021 
001402 


004737 


13:3 
000524 


056274 


000526 


056274 


000530 


056274 


000532 


056274 


000534 


056274 


056274 
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CALL ERROR 
ENDIF 
IF R2 NE R2.£XP THEN 


$51044: 


CALL ERROR 
ENDIF 
IF R3 NE R3.EXP THEN 


$51045: 


CALL ERROR 
ENDIF 
IF R& NE R4.EXP THEN 


$51046: 


CALL ERROR 
ENDIF 
IF R5 NE R5S.EXP THEN 


$51047: 


CALL ERROR 


ENDIF 
$51050: 


:COMPARE DS.DST WITH DS.EXP 
LET RO := #DS.EXP-1 


LET R1 := #DS.DST=-1 
LET ERRFLG := #0 
WHILE RO NE #DS.EXP+40 AND ERRFLG EQ #0 DO 


MOV 


MOV 
CLEAR THE ERROR FLAG 
CLR 


$51051: 
C 


IFB (RO)+ NE (R1)+* THEN 


CALL ERROR 
ENDIF 
ENDDO 


$51053: 


SEQ 0164 

R1,R1.EXP 
$51044 
PC,ERROR 
R2,R2.EXP 
$51045 
PC,ERROR 
R3,R3.EXP 
$51046 
PC,ERROR 
R4,R4.EXP 
$51047 
PC,,ERROR 


R5.R5.EXP 
$51050 


PC ,,ERROR 


#DS.EXP-1 RO 
#DS.DST=1,R1 
ERRFLG 


ROADS .EXP+40 
$51052 


ERRFLG 
$51052 


(RO)+,(R1)+ 
$51058 


PC ,ERROR 





AN 
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000765 BR $51051 
$51052: 


SEQ 0165 


sENDINC 
INLINE <JMP $5401> 
000137 025106 JMP $5401 
INLINE <$5403:> 
$5403: 


LET TSTCAS := TSTCAS + #6 
000006 000542 ADD #6,TSTCAS 
LET COUNT := COUNT - #1 
000466 DEC COUNT 
UNTIL COUNT EQ #0 
IF COUNT NE #0 THEN 
000466 TST 


COUNT 
BEQ $51054 
INLINE <JMP $5054> 
024372 JMP $5054 


ENDIF 

$51054: 
i+ 
; DO ONE INLINE CASE - CVTPNI 


CALL CLRREG 

004737 055330 JSR PC,CLRREG 
CALL CLRDSB 

004737 055520 JSR PC,CLRDSB 
INLINE <CVTPNI> 

076154 CVTPNI 
INLINE <.WORD TCVPNI> 

026416 -WORD TCVPNI 
INLINE <.WORD TCVPNI+4> 

026422 «WORD TCVPNI+4 
LET CC := PSW 

013737 177776 000516 PSW.CC 
LET CC := CC CLR.BY #177760 

042737 177760 000516 #177760,CC 
IF CC NE #10 THEN 

023727 000516 000010 CC,410 

001402 


$51055 
CALL ERROR 0 
056274 PC .ERROR 


ENDIF 
$51055: 
IF RO NE #0 OR R1 NE #0 OR R2 NE #0 THEN 


RO 
$51056 
R1 
S31056 
$51057 


$51056: 
CALL ERROR 
056274 aanie PC ,ERROR 





aa 
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026156 $51057: 
026156 IF R3 NE #0 OR R4 NE #0 OR RS NE #0 THEN 


K_13 
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R3 
$51060 


R4 
Sia 
$51061 


$51060: 
CALL ERROR 
056274 PC ,ERROR 


ENDIF 
$51061: 
IFB DS.DST NE #61 THEN 
123727 062474 DS.DST, #61 
0 $51062 


001402 
CALL ERROR 
004737 056274 PC ERROR 
ENDIF 


IFB DS.DST+1 NE #62 THEN 
123727 062475 DS.DST+1,#62 
$51063 


001402 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$51063: 
IFB DS.DST+2 NE #63 THEN 
123727 062476 DS.DST+2,463 
$51064 


001402 
CALL ERROR 
004737 056274 PC,,ERROR 
ENDIF 


IFB DS.DST+3 NE #164 THEN 
123727 062477 DS.DST+3,4164 
$51065 


001402 
CALL ERROR 
004737 056274 PC .ERROR 
ENDIF 


INLINE <JMP XCVTNP> 
000137 026432 JMP XCVTNP 


i+ 
; TABLE OF TEST CASES FOR CVTPN 


TCVTPN: a. :# OF TEST CASES FOR CVTPN 


SRC DATA TYPE AND LENGTH 
:POINTER TO PACKED SRC S/RING 
;DST.LEN 





no 
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026272 © 


026274 
026276 


026306 
026310 
026312 
026314 
026316 
026320 
026322 
026324 
026326 


026330 


026352 
026353 
026354 
026357 
026362 
026365 
026370 
026372 
026375 
026376 
026401 
026402 


026405 
026410 


12-MAR-80 13:37 


060000 
026353 
000005 
060004 
026354 
000000 


060025 
026357 
000014 


060007 
026372 
000003 
070007 
026376 
000003 
060004 
026402 
000037 
060012 


026405 
000012 


060005 
026413 
000005 


CVTPN1: . 
CVTPN2: 
CVTPN3: . 
CVTPN4: 


CVTPNS: 


CVTPN6: 


CVTPN7: 
CVTPN8: 


60000 
‘betes 


60004 
— 


60025 
CVTPN4 
14 
60007 
—— 


70007 
— 


60004 
CVTPN7 
37 
60012 
CVTPN8& 
12 
60005 
“Gates 


014 
015 
001,043,114 


022,000,007,055 
022,000,007,055 


001,043,114 
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: TEST 


;TEST 


i TEST 


: TEST 


: TEST 


: TEST 


: TEST 


: TEST 


CASE 


CASE 


CASE 


CASE 


CASE 


CASE 


CASE 


CASE 


PACKED DECIMAL STRING 1 
PACKED DECIMAL STRING 2 
PACKED DECIMAL STRING 3 
020,043,127,206,224,022.003,000,100,000,014 


PACKED DECIMAL STRING 5 
PACKED DECIMAL STRING 6 


:PACKED DECIMAL STRING 7 


002,024,164,203,144,215 


NUMBER 9 


PACKED DECIMAL STRING 8 


SEQ 0167 


PACKED DECIMAL STRING 4 


an 
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7792 026413 061 040 


060004 
026420 026426 
026422 000004 
7802 026424 062474 


001 043 
7805 026432 


174 CVTPNY: 


EVEN 
TCVPNI: 


113 PNT: 
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061,040,174 


060004 
PN1 


000004 
DS.DST 


1,43,113 


SEQ 0168 


PACKED DECIMAL STRING 9 


INLINE TEST CASE 
SIGNED PACKED, LENGTH = 4 
sPOINTER TO PACKED SRC STRING 
SIGNED ZONED, LENGTH = 4 
:POINTER TO DST 


371234 


lan) 
* - 
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-SBTTL CVTNP 


CII III III IIR TORII IIIT TOOT IR ER EE 


: CVINP TEST 


° 
SRR RRR REE RRR RRR RK REE RE REERERERKE EEE 


INLINE <XCVTNP:> 


XCVINP: 
INLINE <SCOPE> 
000004 SCOPE 
LET STIMES := #20 ; ITERATION COUNT 
012737 000020 000404 MOV #20, $TIMES 


LET COUNT := TCVTNP GET TEST COUNT 
013737 030126 000466 MOV TCVTNP,, COUNT 
LET TSTCAS := #TCVTNP+2 :POINT TO FIRST TEST CASE 
012737 030130 000542 MOV ATCVTINP+2,TSTCAS 


;REPEAT 
INLINE <$5055:> 
$5055: 


i+ 
; GET TEST DATA FROM TABLE 


LET RO := TSTCAS 

013700 MOV TSTCAS ,RO 
LET DATAOO := (RO}+ :SRC DATA TYPE AND LENGTH 

012037 (RO) + ,DATAOO 


MOV 
LET DATAO1 := (RO)+ POINTER TO INTERMEDIATE SRC STRING 
012037 MOV (RO)+,DATAO1 
LET DATAO2 := (RO) :DST DATA TYPE AND LENGTH 
011037 MOV (RO) ,DATAO2? 


i+ 
; INITIALIZE THE DECIMAL BUFFERS AND CC.EXP. 


CALL CLRDSB 
055520 PC,CLRDSB 
LET CC.EXP := #0 
026502 000520 CLR CC.EXP 


i+ 
; LET SIGNO REFLECT THE SIGN OF THE SOURCE STRING. 


LET SIGNO := @DATAO1 
017737 152050 000446 MOV @DATAO1,S1GNO 


it 
; PUT SRC MAGNITUDE INTO DSBUF1. DSBUF1 WILL BE THE SOURCE FOR THE 
; CVINP INSTRUCTION, 
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7862 
7863 026514 CALL CLRDSB 
7864 026514 004737 055520 é JSR PC,CLRDSB 
7865 026520 LET RO := DATAO1 :GET ADDRESS OF INTERMEDIATE SRC. STRING 
026520 013700 000562 MOV DATAO1,RO 
7867 026524 LET RO := RO + #2 :GET PAST THE SIGN WORD 
7868 026524 062700 000002 ADD #2,RO 
7869 026530 LET R1 := #DSBUF1 
7870 026530 012701 062370 MOV #DSBUF1,R1 
7871 026534 LET DSLEN1 := DATAOO CLR.BY #70000  =;GET SRC.LEN 
7872 026534 013737 000560 000512 MOV DATAOO, DSLEN1 
7873 026542 042737 070000: 000512 BIC #70000, DSLEN1 
7874 026550 INCR R2 FROM #1 TO DSLEN1 BY #1 : TRANSFER THE MAGNITUDE 
7875 026550 012702 000001 MOV #1,R2 
7876 026554 000401 BR $51066 
7877 026556 $51067: 
7878 026556 005202 INC R2 
7879 026560 $51066: 
7880 026560 020237 000512 CMP R2,DSLEN1 
7881 026564 003002 BGT $51070 
7882 026566 LET (R1)+ :B= (RO)+ 
7883 026566 112021 MOVB (RO) +, (R1)+ 
7884 026570 END INC 
7885 026570 000772 BR $51067 
7886 026572 $51070: 
7887 
7888 
7889 i+ 
7890 + PUT THE PROPER SIGN INTO DSBUF1, ACCORDING TO THE SOURCE DATA TYPE. 
7892 ; 
7893 026572 LET DATTYP := DATAOO CLR.BY 4107777 zGET SRC DATA TYPE 
7894 026572 013737 000560 000462 MOV DATAOO, DATTYP 
7895 026600 042737 107777 000462 BIC #107777 ,DATTYP 
oBoe 
7898 ;**x SIGNED ZONED *** 
7899 026606 IF DATTYP EQ 40 THEN 
7900 026606 005737 000462 TST DATTYP 
7901 026612 001014 BNE $51071 
7902 026614 IF DSLEN1 Hl] 40 THEN 7SRC.LEN > 0 
7903 026614 005737 000512 TST DSLEN1 
7904 026520 101471 BLOS  $51072 
7905 026622 LET R1 := R1 - #1 :POINT TO SIGN BYTE 
7906 026622 005301 DEC R1 
7907 026624 IF SIGNO EQ #0 THEN :SIGN IS + 
7908 026624 005737 000446 TST S1GNO 
7909 026630 001003 BNE $51073 
7910 026632 LET (R1) :B= (R1) SET.BY #60 
7911 026632 152711 000060 BISB  #60,(R1) 
7912 026636 ELSE :SIGN IS - 
7913 026636 000402 BR $51074 
7914 026640 $51073: 
7915 026640 LET (R1) :B= (R1) SET.BY #160 
7916 026640 152711 000160 BISB  #160,(R1) 


7917 026644 ENDIF 


fet ae] 
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026732 


026732 


026742 
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023727 
001006 
005737 
101403 
005301 
152711 


023727 
001015 


005737 
101412 


005301 
011100 
023727 
001002 
062700 


116011 


023727 
001016 


005737 


13:37 


000462 


000512 


000060 


000462 


000512 


000446 


000012 


055254 


000462 


000512 
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010000 


020000 


177777 


030000 


ENDIF 
ENDIF 


3*** UNSIGNED ZONED *** 
IF DATTYP EQ #10000 THEN 


IF DSLEN1 HI #0 THEN 


LET R1 := R1 = #1 
LET (R1) :B= (R1) SET.BY #60 
ENDIF 
ENDIF 


;*** TRAILING OVERPUNCH *** 
IF DATTYP EQ #20000 THEN 


IF DSLEN1 HI #0 THEN 


LET R1 := R1 = #1 
LET RO := (R1) 
IF SIGNO EQ #-1 THEN 


LET RO := RO + #10. 
ENDIF 
LET (R1) :B= OVPNCH(RO) 
ENDIF 
ENDIF 


;*** LEADING OVERPUNCH *** 
IF DATTYP EQ #30000 THEN 


IF DSLEN1 HI #0 THEN 


$51074: 
$51072: 
$5171: 


;POINT TO SIGN BYTE 


$51076: 
$51075: 


:POINT TO SIGN BYTE 


$51101: 
zPUT IN SIGN/DIGIT COMBINATION 
MOVB 


$51100: 
$51077: 





ADD 


CMP 
BNE 


TST 


SEQ 0171 


DATTYP,410000 
$51075 

DSLEN1 

$51076 

R1 

#60, (R1) 


DATTYP,420000 
$51077 


DSLEN1 
$51100 


R1 
(R1),RO 


$51101 


#10. RO 


OVPNCH(RO) , (R1) 


x 


DATTYP, #30000 
$51102 


DSLEN1 


oe T oe) 
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026746 101413 $51103 
LET RO :B= DSBUF1 
113700 062370 DSBUF 1.RO 
IF SIGNO EQ #=1 THEN 
023727 000446 177777 S1GNO,#=1 
001002 


$51104 
LET RO := RO + #10. 
062700 000012 #10. ,RO 


ENDIF 
$51104: 
LET DSBUF1 :B= OVPNCH(RO) 
116037 055254 062370 OVPNCH(RO) , DSBUF 


ENDIF 
ENDIF $51103: 


026776 $51102: 


;*** TRAILING SEPARATE *** 
026776 IF DATTYP EQ #40000 THEN 
023727 040000 teas 


001010 
IF SIGNO EQ #9 THEN :SIGN IS + 
005737 S1GNO 
001003 BNE $51106 
LET (R1) :B= #53 
112711 #53,(R1) 
ELSE 
000402 BR $51107 


$51106: 
LET (R1) :B= 
112711 #55,(R1) 


ENDIF 
$51107: 
ENDIF 
027026 $51105: 


3*** LEADING SEPARATE *** 
027026 IF DATTYP EQ #50000 THEN 
023727 000462 050000 DATTYP #50000 
001012 BNE $51110 


IF SIGNO EQ #0 THEN :SIGN IS + 
005737 000446 S1GNO 
001004 $51111 
LET DSBUF 1-1 :B= #53 
112737 000053 062367 oe #53,DSBUF 1-1 
L 
000403 BR $51112 


$51111: 
LET DSBUF 1-1 :B= 
112737 000055 #55 ,DSBUF 1-1 


ENDIF 
$51112: 
ENDIF 
$51110: 





an 
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027110 


027116 


027212 


013702 
042702 


006202 


012700 
060200 


013737 
042737 


013737 
042737 


013737 
042737 


005737 
001003 


112710 


112710 
000402 


112710 


ae CIS DIAGNOSTIC 
12-MAR-80 


13:37 


000564 
070000 


062536 


000564 
107777 


151374 
000462 


000014 


MACY11 30A(1052) 
CVTNP 


000476 
000476 


010000 


E 14 
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i+ 
; LOCATE THE END OF THE EXPECTED DESTINATION, WHERE THE SIGN 


; GOES. GET THE DESTINATION DATA TYPE. 


LET R2 := DATAO2 CLR.BY #70000 


<ASR R2> 
HDS.EXP + R2 


INLINE 
LET RO := 


LET TEMP1 := DATAO2 CLR.BY #107777 


5° 
; PUT THE SIGN INTO THE EXPECTED DESTINATION. 


LET DSLEN1 := DATAOO CLR.BY #70000 
LET DSLEN2 := DATAO2 CLR.BY #70000 
IF DSLEN1 EQ #0 THEN 


LET (RO) 
ELSE 


:B= #14 


IF @DATAO1 EQ 40 OR DATTYP EQ #10000 THEN 


LET (RO) :B= 
ELSE 


LET (RO) :B= 
ENDIF 
ENDIF 
IF TEMP1 EQ #70000 THEN 


GET DST.LEN 


;GET SRC.LEN 


MOV 
BIC 


MOV 
BIC 


TST 
BNE 


:GET DST.LEN 


;SRC.LEN OR DST.LEN = 0 


MOVB 
:SRC.LEN & DST.LEN > 0 


$51113: 


BR 
$51116: 


SIGN IS - 


$51117: 
$51114: 


SEQ 0173 


DATAO2,R2 
#70000 ,R2 


R2 
#DS.EXP,RO 
R2,RO 


DATAO2, TEMP1 
#107777, TEMP1 


DATAOO ,DSLEN1 
#70000 ,DSLEN1 


DATAQ2 ,DSLEN2 
#70000 ,DSLEN2 


DSLEN1 
$51113 


#14, (RO) 
$51114 
@DATAO1 
$51115 
DATTYP,.410000 
$51116 

#14, (RO) 
$51117 


#15, (RO) 





an 
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027212 023727 000476 070000 TEMP1 470000 
001002 


$51120 
LET (RO) :B= #17 
112710 000017 #17, (RO) 
ENDIF 
027226 $51120: 


+ 
; PUT THE EXPECTED VALUE OF THE NBIT INTO CC. 


027226 IF DATTYP NE #10000 AND TEMP1 NE 470000 THEN 

023727 019000 CMP DATTYP, #10000 
001415 BEQ $51121 
023727 070000 CMP TEMP1 , #70000 
001411 BEQ $5112 

IFB (RO) EQ #15 AND DSLEN2 GT #0 THEN :SIGN NIBBLE IN DS.EXP IS NEG. 
121027 CMPB Ss (RO) #15 
001006 $51122 
005737 DSLEN2 
003403 $51122 

- LET CC.EXP := CC.EXP SET.BY #NBIT 

052737 000520 #NBIT,CC.EXP 


ENDIF 
$51122: 
ENDIF 
027270 $51121: 


s+ 
; PUT THE EXPECTED VALUE OF THE ZBIT INTO CC.EXP 


027270 IF DSLEN1 EQ #0 OR DSLEN2 EQ #0 THEN SRC.LEN OR oer Ae 


81 
81 
81 
81 
81 
81 
81 
81 
81 


DSLEN1 
$51123 
DSLEN2 
$51124 


$51123: 
LET CC.EXP := CC.EXP SET.BY #ZBIT 
052737 A#ZBIT,CC.EXP 
ENDIF 
027312 $51124: 


2@ 
; PUT THE EXPECTED VALUE OF THE VBIT INTO CC.EXP 


027312 IF DSLEN1 HI DSLEN2 THEN :SRC.LEN > DST.LEN 
023737 000512 000514 CMP DSLEN1 ,DSLEN2 
101403 $51125 
LET CC.EXP := CC.EXP SET.BY #VBIT 
0 052737 000002 000520 #VBIT,CC.EXP 
027330 ENDIF 





A 
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ty 027330 $51125: 


‘+ 
8146 ; CALCULATE THE NUMBER OF CHARACTERS TO BE MOVED INTO DS.EXP; 
Ape ; USE RO. 


8150 027330 IF DSLEN2 HIS DSLEN1 THEN SDST.LEN >= SRC.LEN 

8151 027330 023737 000514 000512 CMP DSLEN2,DSLEN1 
8152 027336 103403 BLO $51126 
8153 027340 LET RO := DSLEN1 

8154 027340 013700 000512 MOV DSLEN1 ,RO 
8155 027344 ELSE ;SRC.LEN > DST.LEN 

8156 027344 000402 BR $51127 
8157 027346 $51126: 

8158 027346 LET RO := DSLEN2 

8159 027346 013700 000514 MOV DSLEN2 ,RO 
8160 027352 ENDIF 

8161 027352 $51127: 


8164 i+ 
8165 ; MAKE R1 POINT TO THE END OF THE DESTINATION IN DS.EXP; MAKE 
Abe : Re POINT TO THE END OF THE SOURCE IN THE TABLE OF TEST CASES. 


8169 027352 LET R1 := DSi.N2 

8170 027352 013701 000514 MOV DSLEN2,R1 
8171 027356 INLINE <ASR R1> 

8172 027356 006201 ASR R1 

8173 027360 LET R1 := R1 + ADS.EXP 

8174 027360 062701 062536 ADD #DS.EXP,R1 
8175 027364 LET R2 := DATAQ1 + DSLEN1 + 41 

8176 027364 013702 000562 MOV DATAO1 ,R2 
8177 027370 063702 000512 ADD DSLEN1 Re 
8178 027374 005202 INC R2 


8181 i+ 
8182 es THE LEAST SIGNIFICANT BCD FROM THE SOURCE TO THE 
ae? ;_EXPECTED DESTINATION BUFFER, IN PACKED FORMAT. 


8186 027376 IF RO GT #0 THEN 

8187 027376 005700 TST RO 
8188 027400 003405 BLE $51130 
8189 027402 LET R3 :B= (R2) 

8190 027402 111203 MOVB (R2) ,R3 
8191 027404 INLINE <ASH #4 ,R3> 

8192 027404 072327 000004 ASH #4 R3 
8193 027410 LET (R1) :B= (R1) SET.BY R3 

8194 027410 150311 BISB R3,(R1) 
8195 027412 LET RO := RO - #1 ;DECREMENT COUNT 

8196 027412 005300 DEC RC 
8197 027414 ENDIF 


Qo 


CJKDGA, 
CJKDGA.P 


Bas 


SESERSRRRRERR 
OONAUSWWN—O 


VIS 


te CIS Opes iit MACY11 yi} 
P11 12=MAR-80 


027414 


027414 


027416 
027420 


027456 


027456 
027456 


C27472 
027472 


005700 
003417 
005301 
005302 


111211 
142711 


005700 


005700 
101406 


005302 
111203 
072327 
150311 
005300 


000757 


013700 
012701 
013702 
012703 


13:37 


000360 


000004 


000560 
062370 
000564 
062474 


H 14 
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$51130: 


te 
; MOVE THE REST OF THE SOURCE TO THE EXPECTED DESTINATION 


: BUFFER, 
: OF CHARACTERS TO MOVE. 


WHILE RO GT #0 DO 


LET R1 := R1 = #1 
LET R2 := R2 = #1 
LET (R1) :B= (R2) CLR.BY #360 


LET RO := RO = #1 
IF RO HI #0 THEN 


LET R2 := R2 = #1 
LET R3 :B= (R2) 
INLINE <ASH #4 ,R3> 
LET (R1) :B= (R1) SET.BY R3 
LET RO := RO - #1 
ENDIF 
ENDDO 


2@ 
; SET UP RO-RS AND RO.EXP-R5.ExP; 


LET RO := DATAOO 
LET R1 := #DSBUF1 
LET R2 DATAO2 
LET R3 := #DS.DST 


:DECREMENT DEST. 
;DECREMENT SRC. POINTER 


IN PACKED FORMAT, USING RO AS A COUNTER FOR THE NUMBER 


$51131: 
TST 


POINTER 


BLE 


DEC 


DEC 
:PUT BCD INTO LOWER NIBBLE 
MOVB 


:DECREMENT COUNT 


:DECREMENT SRC. POINTER 


BICB 
DEC 


TST 
BLOS 


DEC 
MOVB 


ASH 
:PUT BCD INTO UPPER NIBSLE 
BISB 


:DECREMENT COUNT 


THEN DO THE 


$51133: 


DEC 


BR 
$51132: 


CVTNP INSTRUCTION. 


SRC DATA TYPE AND LENGTH 
MOV 

SRC ADDRESS 
MOV 

:DST DATA TYPE AND LENGTH 
MOV 


DST ADDRESS 
MOV 


RO 
$51132 


R1 
R2 


(R2),(R1) 
#360, (R1) 


RO 


351133 
R2 

(R2) ,R3 
#4 R35 
R3,(R1) 
RO 


$51131 


DATAOO ,RO 
#DSBUF 1 ,R1 
DATAQ2 ,R2 
#DS.DST,R3 


SEQ 0176 


an 
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027476 


02 
027626 


005004 
012705 
005037 
005037 
010237 
010337 
005037 
012737 
076055 


013737 
042737 


023737 
001402 


004737 


020037 
001402 


004737 
020137 
001402 
004737 


020237 
001402 


004737 


177777 
000522 
000524 
000526 
000530 
000532 
177777 


177776 
177760 
000516 


056274 


000522 


056274 


000524 


056274 


000526 


056274 


000534 


000516 
000516 
000520 


LET R4 := #0 

LET RS := #=1 

LET RO.EXP := #0 
LET R1.EXP := #0 
LET R2.EXP := R2 
LET R3.EXP := R3 
LET R4.EXP := #0 
LET RS.EXP := #1 
INLINE <CVTNP> 


+ 
CHECK CONDITION CODES AND GPR'S FOR CORRECT RESULTS. 


LET CC := PSW 
LET CC := CC CLR.BY #177760 
IF CC NE CC.EXP THEN 


CALL ERROR 
ENDIF 
IF RO NE RO.EXP THEN 


CALL ERROR 
ENDIF 
IF Ri NE R1.EXP THEN 


CALL ERROR 
ENDIF 
IF R2 NE R2.EXP THEN 


CALL ERROR 
ENDIF 
IF R3 NE R3.EXP THEN 


$51134: 


$51135: 


$51137: 


R4 

#-1,R5 
RO.EXP 
R1.EXP 
R2,R2.ExP 
R3,R3.EXP 
R4.EXP 
#-1,R5.EXP 


PSW,CC 
#177760,CC 
ssser 
PC ,ERROR 


RO,RO.EXP 
$51135 


PC ERROR 
R1,R1.EXP 
$51136 


PC,.ERROR 


R2,R2.EXP 
$51137 


PC ERROR 


SEQ 0177 


aa 
We 


CJKDGA, 
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027752 


12-MAR-80 


020337 
001402 


004737 


020437 
001402 


004737 


020537 
001402 


004737 


005037 
012700 
012701 


122021 
001402 
004737 


000765 


062737 
005337 
005737 
001402 
000137 


13:37 
000530 


056274 


000532 


056274 


000534 


056274 


000454 
062474 
062536 


000454 
062534 


056274 


000006 
000466 


000466 


026456 


MACY11 30A(1052) 
CVTNP 


000542 


CALL ERROR 
ENDIF 
IF R& NE R4.EXP THEN 


CALL ERROR 
ENDIF 
IF RS NE R5.EXP THEN 


CALL ERROR 
ENDIF 
tig Fe ie DS.EXP 
LET RO := #DS.DST 
LET R1 := #DS.EXP 


WHILE ERRFLG EQ #0 AND RO LO 4DS.DST+40 DO 


IFB (RO)+ NE (R1)+ THEN 


CALL ERROR 
ENDIF 
ENDDO 


LET TSTCAS := TSTCAS + #6 

LET COUNT := COUNT - #1 
iFNCOUNT NE #0 THEN 

INLINE <JMP $5055> 
ENDIF 
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$51140: 


$51141: 


$51142: 


$51143: 


$51145: 


$51144: 


$511464: 


SEQ 0178 
(MP R3,R3.EXP 
$51140 


JSR PC,ERROR 


CMP R4,R4.EXP 
BEQ $51141 


JSR PC,ERROR 


CMP R5,R5.EXP 
$51142 


JSR PC,ERROR 


CLR ERRFLG 

MOV #0S .DST RO 
MOV #DS.EXP,R1 
TST ERRFLG 

BNE $51144 

CMP RO, ADS .DST+40 
BHIS $51144 


CMPB  —s_- (RO) +, (R11) + 
BEQ $51145 


JSR PC ,ERROR 


BR $51143 


ADD #6, TSTCAS 


DEC COUNT 
TST COUNT 
BEQ $51146 
JMP $5055 


Aa 


K 14 
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8366 

8367 

8368 + 

44 3; DO ONE INLINE CASE = CVTNPI 

8371 027752 CALL CLRREG 

8372 027752 004737 055330 JSR PC, CLRREG 
8373 027756 CALL CLRDSB 

8374 027756 004737 055520 JSR PC,CLRDSB 
8375 027762 INLINE <CVTNPI> 

8376 027762 076155 CVTNPI 

8377 027764 INLINE <.WORD TCVNPI> 

8378 027764 030344 «WORD TCVNPI 
8379 027766 INLINE <.WORD TCVNPI+4> 

8380 027766 030350 ~WORD TCVNPI+4 
8381 027770 LET CC := PSwW 

8382 027770 013737 177776 000516 MOV PSW,CC 
8383 027776 LET CC := CC CLR.BY #177760 

8384 027776 042737 177760 000516 BIC #177760,CC 
8385 030004 IF CC NE #0 THEN 

8386 030004 005737 000516 TST CC 

8387 030010 001402 BEQ $51147 
8388 030012 CALL ERROR 

8389 030012 004737 056274 JSR PC,ERROR 
8390 030016 ENDIF 

8391 030016 $51147: 

8392 030016 IF RO NE #0 OR R1 NE #0 OR R2 NE #0 THEN 

8393 030016 005700 TST RO 

8394 030020 001004 BNE $51150 
8395 030022 005701 TST R1 

030024 001002 BNE $51150 

8397 030026 005702 TST Re 

8398 030030 001402 BEQ $51151 
8399 030032 $51150: 
00 030032 CALL ERROR 

8401 030032 004737 056274 JSR PC,ERROR 
8402 030036 ENDIF 

8403 030036 $51151: 
04 030036 IF R3 NE #0 OR R4 NE #0 OR RS NE #0 THEN 

8405 030036 005703 TST R3 

8406 030040 001004 BNE $51152 
8407 030042 005704 TST RS 

8408 030044 001002 BNE $51152 
8409 030046 005705 TST R 

8410 030050 001402 BEQ $51153 
8411 030052 $51152: 

8412 030052 CALL ERROR 

8413 030052 004737 056274 JSR PC,,ERROR 
8414 030056 ENDIF 

8415 030056 $51153: 

8416 030056 IFB DS.DST NE #124 THEN 

8417 030056 123727 062474 000124 CMPB DS.DST 4124 
818 030064 001402 BEQ $51154 
8419 030066 CALL ERROR 

8420 030066 004737 056274 JSR PC ERROR 
8421 030072 ENDIF 


On 
a. 2 
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$51154: 
IFB DS.DST+1 NE 462 THEN 
123727 062475 000062 MPB DS.DST+1,462 
001402 $51155 


CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$51155: 
IFB DS.DST+2 NE #37 THEN 
123727 062476 000037 DS.DST+2,4#37 
001402 $51156 


CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$51156: 


INLINE <JMP CISSEND> 
000137 031700 JMP CISSEND 


OF TEST CASES FOR CVTNP 
TEST CASES FOR CVTNP 


2 SRC DATA_TYPE AND LENGTH 
POINTER TO INTERMEDIATE SRC STRING 


:DST DATA TYPE AND LENGTH 
CASE NUMBER 2 


CASE NUMBER 


CASE NUMBER 


CASE NUMBER 


CASE NUMBER 


CASE NUMBER 


CASE NUMBER 





an 
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030222 
030224 


12-MAR-80 

070006 
050000 
030340 
060002 
000000 
000 
030222 
177777 
030226 
177777 
000 
030232 
177777 
11 


177777 
001 
007 
004 


177777 
005 


177777 
007 
001 


000000 
007 


0 13:37 
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: TEST CASE NUMBER 9 


-1 


SIGN WORD: 0 = +, os 
MAGNITUDE, ONE BCD PER BYTE 


INTERMEDIATE SRC STRING 2 


: INTERMEDIATE SRC STRING 3 


TERMEDIATE SRC STRING 4 
O11, 010,007,006, 05! 004 ,003,002,001 000,001 ,002,003,004 .005.006 


007,010,011 


0 NTERMEDIATE SRC STRING 5 
007,000,006,001, 608. 002,004,003 


: INTERME 
001. 003,005,007,011,002, 


NTERMEDIATE SRC STRING 7 
005. 005,007,003, at 0,002.001.011,004.007,006.000,000,007,001 


: INTERMED TATE SRC STRING 8 
007, 005,003,001,004,002 


INTERMEDIATE SRC STRING 9 


SEQ 0181 





ana 
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8534 -EVEN 

8535 

8536 

8537 

8538 030344 TCVNPI: : INLINE TEST CASE 

8539 030344 000005 -WORD 000005 ; SIGNED ee LENGTH = 5 

8540 030346 030354 «WORD NP1 sPOINTER TO SRC 

8541 030350 070005 -WORD 070005 ; UNS 1 GNED PACKED, LENGTH = 5 

Bec 030352 062474 «WORD DS.DST ;POINTER TO DST 

8544 030354 005 004 003 NPI: «BYTE 5,4,3,2,161 3754321 

8545 030357 161 


002 
8546 030362 -EVEN 


B 15 
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030362 
030362 


005702 
100003 
012737 


13:37 


055562 
000446 
000512 


177777 000446 


BAIA IOISI ISIS IOIDISIIIIISIIIOIOIOIUIOIIOIOIOI IIIT OTT TTT TOT TOT TET OTT TTT TTL 
“SBTTL CONVERT LONG INTEGER TO INTERMEDIATE FORM ROUTINE 
IARC AISICISIOIOIOIIIOISISIOISISISIIAI ISIS IOISIOIOIOIIOISI ICICI II TOI TT ITT TT TT TOT TIE 


THIS ROUTINE Sg gl A LONG INTEGER INTO 


FORM 
IS THE 31 BIT LONG INTEGER (PLUS THE 
SIGN BIT) IN REGISTERS R2 AND R3: 


R2 


THE OUTPUT IS: 

SIGNO SET TO SIGN OF THE LONG INTEGER 

(0 FOR +, 177777 FOR ~); AND 10 BINARY 

CODED DECIMAL (BCD) DIGITS PUT_INTO MEMORY, 
ONE DIGIT PER BYTE, STARTING AT DSBUF1, 

MOST SIGNIFICANT DIGIT FIRST. DSLEN1 WILL 
HAVE THE LENGTH (EXCLUDING LEADING ZEROES). 
THE GENERAL PURPOSE REGISTERS ARE SAVED 

nf na — OF THE ROUTINE AND RESTORED 
DSBUF1 DECIMAL STRING BUFFER SHOULD BE CLEAR BEFORE 
ENTERING THIS ROUTINE. 


ROUTINE CVTLI 


eee H RENEE HERR BS. 


ae 
; ROUTINE INITIALIZATION 


CALL SAVREG SAVE THE GPR'S 
LET SIGNO := #0 
LET DSLEN1 := #0 


i+ 
; TEST FOR SPECIAL CASES OF 0 VALUE OR MOST NEGATIVE VALUE 


INLINE <TST R2> 
IFCOND MI] THEN 
LET SIGNO := #1 


ENDIF 
$51161: 


R2 


PC, SAVREG 
SIGNO 
DSLENT 


$51161 
#-1,S1GNO 
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LET TEMPO := R2 CLR.BY #100000 
010237 000474 MOV R2, TEMPO 
2737 100000 000474 #100000, T 
IF R3 EQ #0 AND TEMPO EQ #0 THEN a3 
$51162 
TEMPO 
$51162 


000474 


IF SIGNO EQ #0 THEN 
000446 TST SIGNO 
BNE $51163 
;RETURN 


INLINE <JMP XCVTLI> 
031264 JMP XCVTLI 
ELSE sRESULT = -2,147,483,648 
$51164 


$51163: 
RO := ADSBUF1 
062370 MOV ADSBUF 1,RO 

(RO)+ : #2 

112720 000002 MOVB #2,(RO)+ 
(RO)+ :B= #1 

112720 000001 MOVB #1, (RO)+ 
(RO)+ : #4 

112720 000004 MOVB #4,(RO)+ 
(RO)+ : #7 

112720 000007 MOVB #7, (RO)+ 
(RO)+ : #4 

112720 000004 MOVB #4,(RO)+ 
(RO)+ : #8. 

112720 MOVB #8. ,(RO)+ 
(RO)+ : #3 

1127206 MOVB #3, (RO)+ 
(RO)+ : #6 

112720 ! #6, (RO) + 
(RO)+ : #4 

112720 #4,(RO)+ 
(RO)+ : #8. 

112720 000010 #8.,(RO)+ 
DSLEN1 := #10. 

012737 000012 #10. ,DSLEN1 

RETURN 
INLINE <JMP XCVTLI> 
000137 031264 JMP XCVTLI 


ENDIF 
ew iF $51164: 
$51162: 


+ 
; LONG INTEGER SOURCE WAS NOT ZERO OR MOST NEGATIVE NUMBER, 
: SO PREPARE FOR CONVERSION ALGORITHM, 


IF SIGNO EQ #-1 THEN 
023727 000446 177777 CMP SIGNO,#=1 
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030634 
030634 


001005 
005403 
005102 
005703 
001001 


005202 


012700 


020227 
101407 


162703 
005602 
162702 
105210 
000766 
020227 
001007 
020327 
103404 
162703 
005002 
105210 


13:37 


062370 


035632 


145000 


035632 


035632 
145000 


145000 


CONVERT LONG INTEGER TO INTERMEDIATE FORM ROUTINE 


LET R3 := NEGATE R3 
LET R2 := COMP R2 
IF R3 EQ #0 THEN 


LET R2 := R2 + #1 
ENDIF 
ENDIF 
LET RO := #DSBUF1 


J* 
; GET TENTH BCD DIGIT (MOST SIGNIFICANT DIGIT) 


WHILE R2 HI #35632 DO 


LET R3 := R3 = #145000 

INLINE <SBC R2> 

LET R2 := R2 - #35632 

LET (RO) :B= (RO) + #1 
ENDDO 


IF R2 EQ #35632 AND R3 HIS #145000 THEN 


LET R3 := R3 = #145000 


LET R2 := #0 
LET (RO) :B= (RO) + #1 
ENDIF 


-+ 
; GET NINTH BCD DIGIT 


LET RO := RO + #7 


$51166: 
$51165: 


$51167: 


$51170: 


$51171: 


INC 





SEQ 0185 


$51165 
R3 
R2 


R3 
$51166 
R2 


#DSBUF 1 ,RO 


R2 #35632 
$51170 

#145000 ,R3 
#35632,R2 


(RO) 
$51167 


R2 #35632 
$51171 
R3 4145000 
$51171 
#145000 ,R3 


R2 
(RO) 


RO 


E mi: 
CJKDGA, KEF11-8 CIS DIAGNOSTIC MACY11 yo 14-MAR=80 08:04 PAGE 170 
CJKDGA.P11 12-MAR-80 13:37 ONVERT LONG INTEGER TO INTERMEDIATE FORM ROUTINE 


WHILE R2 HI #2765 DO 
$51172: 


020227 002765 R2,42765 
101407 $51173 
LET R3 := R3 = #160400 
162703 160400 #160400,R3 
INLINE <SBC R2> 
005602 


LET R2 := R2 = #2765 
162702 002765 #2765 ,R2 
LET (RO) :B= (RO) + #1 
105210 (RO) 
ENDDO 
000766 $51172 


$51173: 
IF R2 EQ #2765 AND R3 HIS #160400 THEN 
pores 002765 wt — 


1 
020327 160400 a3. #160400 
103404 74 


$511 
LET R3: - #160400 
162703 160400 #160400,R3 
LET R2 : 
005002 R2 
LET (RO) :B= (ROD + #1 
105210 (RO) 


ENDIF 
$51174: 


GET EIGHTH BCD DIGIT 


LET RO := RO + #1 
005200 RO 
WHILE R2 H] #230 DO 
$51175: 


020227 R2 ,#230 
101407 $51176 
LET R3 := R3 = #113200 
162703 #113200,R3 
INLINE <SBC R2> 
005602 


LET R2 := R2 = #230 
162702 #230,R2 
LET (RO) :B= (RO) + #1 
105210 (RO) 
ENDDO 
000766 $51175 


$51176: 
IF R2 EQ #230 AND R3 HIS #113200 THEN 


020227 
001007 
020327 
103404 


LET R35 := R3 = #113200 
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162703 113200 
005002 
105210 


LET R2 := 
LET (RO) 


ENDIF 


14-MAR-80 


#0 


8:04 


‘B= (RO) + #1 


GET SEVENTH BCD DIGIT 


LET RO := 
WHILE R2 H 


005200 
020227 
101407 
162703 
005602 
162702 


LET R3 := 


INL INE 


LET R2 := 


RO + #1 


I #17 DO 


<SBC R2> 


R2 - #17 


R3 = #41100 


LET (RO) :B= (RO) + #1 


105210 
000766 


ENDDO 
IF R2 EQ # 
020227 
001007 
020327 
103404 


162703 


LET R3 : 


17 AND R3 HIS #41100 THEN 


LET R2 : 
LET (RO) :B= (RO) + #1 


005002 


105210 
ENDIF 
031032 


031032 LET RO := 
005200 


83 88 83 85 83 85 88 85 83 80 
aad aad end ca aa eed cae ae ch ed 
—SOV0BNOUSWN=—O 


RS 


020227 000001 
101406 


162703 103240 


INL INE 


LET R3 := 


z? 
: GET SIXTH BCD DIGIT 


RO + #1 
WHILE R2 HI #1 DO 


<SBC R2> 


- 441100 


R3 - #103240 


F 15 
PACE 1 
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$51177: 


$51200: 


$51201: 


$51202: 


$51203: 


#113200,R3 
R2 
(RO) 


RO 
R2,417 
$51201 
#41100,R3 


#17,R2 


#41100,R3 
R2 
(RO) 


RO 


R2,#1 
$51204 
#103240,R3 


SEQ 0187 
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8827 031046 005602 SBC R2 

8828 031050 LET R2 := R2 = #1 

8829 031050 005302 DEC R2 

8830 031052 LET (RO) :B= (RO) + #1 

8831 031052 105210 INCB (RO) 

8832 031054 ENDDO 

8833 031054 000767 BR $51203 

8834 031056 $51204: 

8835 031056 IF R2 EQ #1 AND R3 HIS #103240 THEN 

8836 031056 020227 000001 CMP R2,41 

8837 031062 00100 BNE $51205 
38 031 020327 103240 CMP R3,4103240 

8839 031070 103404 BLO $51205 

8840 031072 LET R3 := R3 = #103240 

8841 031072 162703 103240 SUB #103240,R3 

8842 031076 LET R2 := #0 

8843 031076 005002 CLR R2 

8844 031100 LET (RO) :B= (RO) + #71 

8845 031100 105210 INCB (RO) 

8846 031102 ENDIF 

8847 031102 $51205: 

8848 

8849 i+ 

8850 é GET FIFTH BCD DIGIT 

8851 :- 

8852 

8853 031102 LET RO := RO + #1 

8854 031102 005200 INC RO 

8855 031104 WHILE R2 EQ #1 DO 

8856 031104 $51206: 

8857 031104 020227 000001 CMP R2,#1 

8858 031110 001005 BNE $51207 

8859 031112 LET R3 := R3 = 423420 

8860 031112 162703 023420 SUB #23420,R3 

8861 031116 INLINE <SBC R2> 

8862 031116 005602 SBC R2 

8863 031120 LET (RO) :B= (RO) + #1 

8864 031120 105210 INCB (RO) 

8865 031122 ENDDO 

8866 031122 000770 BR $51206 

8867 031124 $51207: 

8868 031124 WHILE R3 HIS #23420 DO 

8869 031124 $51210: 

8870 031124 020327 023420 CMP R3,423420 

8871 031130 103404 BLO $51211 

8872 031132 LET R3 := R3 = #23420 

8873 031132 162703 023420 SUB #23420,R3 

8874 031136 LET (RO) :B= (RO) + #1 

8875 031136 105210 INCB (RO) 

8876 031140 ENDDO 

8877 031140 000771 BR $51210 

8878 031142 $51211: 

8879 

8880 it 

8881 : GET FOURTF BCD DIGIT 
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CJKDGA-P11 


AOAMNOS SSM! 


ADROUIWMVIVIE BRAS 
83S 


031224 


12=MAR~80 


005200 
020327 
103404 
162703 


105210 
000771 


005200 
020327 
103404 
162703 


105210 
000771 


005200 
020327 
103404 
162703 


105210 
000771 


0605200 
110310 


13:37 


001750 


001750 


000144 


000144 


000012 


000012 


LET RO := RO + #7 
WHILE R3 HIS #1750 DO 


LET R3 := R3 = 41750 
LET (RO) :B= (RO) + #1 
ENDDO 


7% 
3 GET THIRD BCD DIGIT 


LET RO := RO + #1 
WHILE R3 HIS #144 DO 


LET R3 z= R3 = #144 
LET (RO) :B= (RO) + #1 
ENDDO 


GET SECOND AND FIRST BCD DIGITS 


LET RO := RO + #1 
WHILE R3 HIS #12 DO 


LET R3 := R3 = #12 
LET (RO) :B= (RO) + #1 
ENDDO 


LET RO := RO + #1 
LET (RO) :B= R3 


$51212: 


$51213: 


$51214: 


$51215: 


$51216: 


$51217: 


RO 
sig 
#1750,R3 
(RO) 
$51212 


RO 
$5213, 
#144 ,R3 
(RO) 

$51214 


RO 
$1519 
#12,R3 
(RO) 
$51216 


RO 
R3, (RO? 





om 
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ey : DETERMINE THE NUMBER OF SIGNIFICANT DIGITS. 
8941 
8942 031226 LET RO := ADSBUF1 
8943 031226 012700 062370 MOV #DSBUF 1,RO 
8944 031232 WHILEB (RO) EQ #0 DO 
8945 031232 $51220: 
8946 031232 105710 TSTB (RO) 
8947 031234 001002 BNE $51221 
8948 031236 LET RO := RO + #1 
8949 031236 005200 INC RO 
8950 031240 ENDDO 
8951 031240 000774 BR $51220 
8952 031242 $51221: 
8953 031242 LET RO := RO = #DSBUF1 3# OF LEADING 0'S 
8954 031242 162700 062370 SUB #DSBUF 1,RO 
8955 031246 LET DSLEN1 := #10. = RO 3# OF MOST SIGNIFICANT DIGITS 
8956 031246 012737 000012 000512 MOV #10. ,.DSLEN1 
8957 031254 160037 000512 SUB RO,DSLEN1 
8958 031260 CALL RESREG sRESTORE THE GPR'S 
8959 031260 004737 055614 JSR PC ,RESREG 
8960 031264 INLINE <xXCVTLI:> 
8961 031264 XCVTLI: 
8962 031264 ENDRTN 
8963 031264 $51157 
8964 031264 $51160: 
8965 031264 000207 RTS PC 
8966 
8967 
8968 FREER RARER ERE EERE EERE EEE EERE KEE 
8969 *SBTTL CONVERT INTERMEDIATE FORM TO LONG INTEGER ROUTINE 
8970 Z S "THIS ROUTINE CONVERTS A 10 BCD DIGIT INTERMEDIATE FORM INTO 
8971 :* THIS ROUTINE CONVERTS A 10 BCD DIGIT INTERMEDIATE FORM IN 
8972 :* LONG INTEGER FORMAT. THE INPUT IS 10 BCD DIGITS IN THE. 07 BYTES STARTING 
8973 :* AT DSBUF1, MOST SIGNIFICANT DIGIT FIRST; AND SI 
8974 :* THE OUTPUT IS A TWO'S COMPLEMENT 31 BIT BINARY LONG INTEGER IN LOCATIONS 
8975 3* R2.EXP AND R3.EXP. 
8976 :* THIS ROUTINE ASSUMES THAT THE 10 BCD DIGIT NUMBER IS SMALL ENCUGH 
sald :* TO BE REPRESENTED AS A 31 BIT BINARY INTEGER 
8979 031266 ROUTINE CVTIL 
8980 031266 CVTIL: 
8981 
8982 i+ 
8983 ; ROUTINE INITIALIZATION 
8984 7 
8985 
8986 031266 CALL SAVREG SAVE THE GPR'S 
8987 031266 004737 055562 JSR PC, SAVREG 
8988 031272 LET R2.EXP := #0 
8989 031272 005037 000526 CLR R2.EXP 
8990 031276 LET R3.EXP := #0 
8991 031276 005037 000530 CLR R3.ExP 
8992 031302 LET RO := #DSBUF1 


8993 031302 012700 062370 MOV #DSBUF 1 ,RO 


CJKDGA, KEF11=B8 CIS DIAGNOSTIC 
12=MAR=80 


CJKDGA.P11 


031366 
031370 


031370 


105710 
003412 
062737 
005537 
062737 


105310 
000764 


005200 
3321 
062737 
005537 
062737 


105310 
000764 


005200 
105710 
003412 


062737 


MACY11 
13:37 


145000 
000526 
035632 


000530 


000526 


160400 000530 
000526 
002765 000526 


113200 000530 


30A(1052) 


J pas 
14=MAR=80 08:04 
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:+ 


+ 
; ADD IN BINARY EQUIVALENT 


WHILEB (RO) GT #0 DO 


LET R3.EXP := R3.EXP + 

INLINE <ADC R2.EXP> 

LET R2.EXP := R2.EXP + 

LET (RO) :B= (RO) = #1 
ENDDO 


pt 
; ADD IN BINARY EQUIVALENT 


LET RO := RO + #1 
WHILEB (RO) GT #0 DO 


LET R3.EXP := R3.EXP + 

INLINE <ADC R2.EXP> 

LET R2.EXP := R2,.EXP + 

LET (RO) :B= (RO) = #1 
ENDDO 


i+ 
; ADD IN BINARY EQUIVALENT 


LET RO := RO + #1 
WHILEB (RO) GT #0 DO 


LET R3.EXP := R3.EXP + 
INLINE <ADC R2.EXP> 


OF TENTH BCD DIGIT 


#145000 


#35632 


OF NINTH BCD DIGIT 


#160400 


#2765 


OF EIGHTH BCD DIGIT 


#113200 


$51224: 


$51225: 


$51226: 


$51227: 


$51230: 


SEQ 0191 


TSTB (RO) 
BLE $51225 


ADD #145000 ,R3.EXP 
ADC R2.EXP 

ADD #35632 ,R2.EXP 
DECB (RO) 

BR $51224 


RO 
BE. $51227 
ADD #160400 ,R3.EXP 
ADC R2.EXP 
ADD #2765 ,R2.EXP 
DECB (RO) 
BR $51226 


RO 


(RO) 
$5123) 


#113200.R3.ExP 





an 
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CJKDGA.P11 


0 
031454 


031454 


12=MAR-80 13:3 


005537 000526 

062737 000230 000526 
105310 

000764 


005200 

3321 

062737 041100 000530 
005537 000526 

062737 000017 000526 


105310 
000764 


005200 

321 

062737 103240 000530 
005537 000526 

005237 000526 

105310 

000765 


LET R2.EXP := R2.EXP + 
LET (RO) :B= (RO) = #1 
ENDDO 


3” 
; ADD IN BINARY EQUIVALENT 


LET RO := RO + #1 
WHILEB (RO) GT #0 DO 


LET R3.EXP := R3.EXP + 

INLINE <ADC R2.EXP> 

LET R2.EXP := R2.EXP + 

LET (RO) :B= (RO) = #1 
ENDDO 


2° 
; ADD IN BINARY EQUIVALENT 


LET RO := RO + #1 
WHILEB (RO) GT #0 DO 


LET R3.EXP := R3.EXP + 

INLINE <ADC R2.EXP> 

LET R2.EXP := R2.EXP + 

LET (RO) :B= (RO) = #1 
ENDDO 


2% 
; ADD IN BINARY EQUIVALENT 


K_15 
AGE 176 


#230 


OF SEVENTH BCD DIGIT 


#41100 


#17 


OF SIXTH BCD DIGIT 


#103240 


#1 


OF FIFTH BCD DIGIT 


$51231: 


$51232: 


$51233: 


$51235: 


“SEQ 0192 


ADC R2.EXP 

ADD #230,R2.EXP 
DECB (RO) 

BR $51230 


RO 

$81233 

#41100,R3.EXP 
R2.EXP 

#17 ,R2.EXP 

(RO) 

$51232 


INC RO 


" TSTB 


BLE $51335 

ADD #103240.R3.EXP 
ADC R2.EXP 

INC R2.EXP 

DECB (RO) 

BR $51234 





On 
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CJKDGA.P11 


9107 
9108 
9109 


SVesesseseess 
a st ss 
WOONAUVUISWN—O 


3 


12-MAR-80 


005200 
105710 
003407 
062737 
005537 


105310 
000767 


005200 
105710 
003407 
062737 
005537 


105310 
000767 


005200 
105710 
003407 
062737 
005537 


105310 
000767 


13:37 


023420 000530 


000526 


001750 000530 
000526 


000144 000530 
000526 
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LET RO := RO + #1 
WHILEB (RO) GT #0 DO 


LET R3.EXP := R3.EXP + 

INLINE <ADC_ R2.EXP> 

LET (RO) :B= (RO) = #1 
ENDDO 


i+ 
; ADD IN BINARY EQUIVALENT 


LET RO := RO + #1 
WHILEB (RO) GT #0 DO 


LET R3.EXP := R3.EXP + 

INLINE <ADC R2.EXP> 

LET (RO) :B= (RO) - #1 
ENDDO 


i+ 
; ADD IN BINARY EQUIVALENT 


LET RO := RO + #1 
WHILEB (RO) GT #0 DO 


LET R3.EXP := R3.EXP + 

INLINE <ADC R2.EXP> 

LET (RO) :B= (RO) = #1 
ENDDO 


#23420 


OF FOURTH BCD DIGIT 


OF THIRD BCD DIGIT 


$51236: 


$51240: 


$51241: 


$51242: 


$51243: 


INC 


TSTB 
BLE 


ADD 


RO 


(RO) 
$51237 


#23420,R3.EXP 


ADC R2.EXP 


DECB 


BR 


INC 


TSTB 
BLE 


ADD 


(RO) 
$51236 


RO 


(RO) 
$51241 


#1750,R3.EXP 


ADC R2.EXP 


DECB 
BR 


INC 


TSTB 
BLE 


ADD 


(RO) 
$51240 


RO 


(RO) 
$51243 


#144,R3.EXP 


ADC R2.ExXP 


DECB 
BR 


(RO) 
$51242 





aa 
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ai 
eee ; ADD IN BINARY EQUIVALENT OF SECOND BCD DIGIT 


9168 031600 LET RO := RO + #1 

9169 031600 005200 INC RO 

9170 031602 WHILEB (RO) GT #0 DO 

9171 031602 $51244: 

9172 031602 105710 TSTB (RO) 
031604 003407 BLE $51245 

9174 031606 LET R3.EXP := R3.EXP + #12 

9175 031606 062737 000012 000530 ADD #12,R3.EXP 

9176 031614 INLINE <ADC R2.EXP> 

9177 031614 005537 000526 ADC R2.EXP 

9178 031620 LET (RO) :B= (RO) = #1 

9179 031620 105310 DECB (RO) 

9180 031622 ENDDO 

9181 031622 000767 BR $51244 

9182 031624 $51245: 


3* 
9185 : ADD IN FIRST DIGIT 


9188 031624 LET RO := RO + #1 

9189 031624 005200 INC RO 

9190 031626 INLINE <SWAB- (RQ)> 

9191 031626 000310 SWAB (RO) 

9192 031630 LET R3.EXP := R3.EXP + (RO) 

9193 031630 061037 000530 ADD (RO) .R3.EXP 
9194 031634 INLINE <ADC R2.EXP> 

9195 031634 005537 000526 ADC R2.EXP 

9196 031640 IF SIGNO EQ #1 THEN 

91 oe 031640 Ht 000446 177777 CMP SIGNO ,4~1 


031646 BNE $51246 
9199 031650 LET R3.EXP := NEGATE R3.EXP 
9200 031650 005437 000530 NEG R3.EXxP 
9201 031654 LET R2.EXP := COMP R2.EXP 
9202 031654 005137 000526 COM R2.EXP 
9203 031660 IF R3.EXP EQ #0 THEN 
9204 031660 005737 000530 TST R3.EXP 
9205 031664 001002 BNE $51247 
9206 031666 LET R2.EXP := R2.EXP + #1 
9207 031666 005237 - 000526 INC R2.EXP 
9208 031672 ENDIF 
9209 031672 $51247: 
9210 031672 ENDIF 
9211 031672 $51246: 
9212 031672 CALL RESREG sRESTORE GPR'S 
9213 031672 004737 055614 JSR PC ,RESREG 
9214 031676 ENDRTN 


9517 031676 000207 “RIs PC 


Se TOMMOODM Fs BVI KeO eTOMRMMNOOOD 4S BS KO KMBTOMMNOOOM A BK Ore TOMMMOOOA BKC KeTUTO™MOOW 
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9219 031700 INLINE <CISSEND:> 
3220 031700 CISSEND: 


e 
9222 





TARR COMMOODZS STHACHITOMWMOVODS ST ACH IO MOODS SH KACH TA MOOOOZ SH KCK TOMM 
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Pll 


031700 
031700 


031702 


03 
031760 


12-MAR-80 


000004 
017737 
042737 


005737 
001406 


032737 
001002 


000137 


012737 
005037 
012737 
012737 


13:37 


146520 
177700 
000474 
000004 


044432 


000474 
000474 


000474 


000544 


177776 
000550 


6 
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SCARE REAR KRERERE ER EAE EE ERREKERERKERREEREREEEEREKEEHKKEKEEEREREEK 
MASSA AASASLALASLAASARARAARLLAALALESELLSS ES ESSER SESE REESE SSR SS 


CiSs6 MODULE 


THIS MODULE TESTS THE NUMERIC DATA TYPE ARITHMETIC 
INSTRUCTIONS: ADDN, SUBN, CMPN, AND ASHN. 


SERRE REE RRERAE EERE RE REE AKEREEEREEKKEKEEEREEKREKKEKEKKKKEKKKEK 
SRR EERE KEKE REE EEK AKER EERE KEEEEKEKKK 


° 
° 
‘ 
; 
Py 
Py 
° 
Py 
° 
° 


~SBTTL CIS6 INITIALIZATION 


DRE RRR ER HERE EKER ERE EERE KEE EKER E EEE EEE 


CIS6 INITIALIZATION 


SRR ARERR EERE RRR EEEEKKRKREEEEREEEKEKEEREKKKEEKEKEEKEKEKKKK 


3 IF _SWR<5:0> ARE CLEARED OR IF SWR<2> IS SET THEN EXECUTE 
: THE CIS6 MODULE; OTHERWISE, SKIP TO THE NEXT CIS MODULE. 


INLINE <SCOPE> 


SCOPE 
LET TEMPO := @SWR CLR.BY #177700 

MOV 

BIC 
IF TEMPO NE #40 THEN 

TST 

BEQ 

IF ABIT2 NOTSETIN TEMPO THEN ant 
BNE 
INLINE <JMP CIS6END> 
JMP 
ENDIF 
$51251: 
ENDIF 
$51250: 

LET CTL := #6 ;CONTROL CHIP NUMBER nies 
LET ERRFLG := #0 s INITIALIZE ERROR FLAG — 
LET PSW := #340 

MOV 
LET ERR := #1 

MOV 


SEQ 0196 


aSwR, TEMPO 
#177700, TEMPO 
TEMPO 

$51250 

#B1T2, TEMPO 
$51251 


CIS6END 


#6,CTL 
ERRFLG 
#340 ,PSw 
#1,ERR 
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9274 -SBTTL ADDN 


9275 SIRI IOI IO ISIII IO IOI IIIS IOI III IOI IOI IOI IOI IOI IOI TOI tit ft 


ADDN TEST 


9279 FERRARA REAR R REE E EERE REE RRAERER REE REET 


80 
9281 031766 INLINE <XADDN:> 
9282 031766 XADDN: 
9283 031766 INLINE <SCOPE> 
9284 031766 000004 SCOPE 
9285 031770 LET STIMES := #10 ; ITERATION COUNT 
9286 031770 012737 000010 000404 MOV #10, $TIMES 
9287 031776 LET COUNT := TADD 34 OF TEST CASES 
9288 031776 013737 063200 000466 MOV TADD , COUNT 
9289 032004 LET TSTCAS := ATADD+2 sPOINT TO FIRST TEST CASE 
032006 012737 063202 000542 MOV MTADD+2, TSTCAS 


9292 3* 
9293 é CLR RO.EXT TO R3.EXP 
9294 ° 


032012 INCR RO FROM #0 TO #6 BY #2 

9297 032012 005000 CLR RO 
9298 032014 000402 BR $51252 
9299 032016 $51253: 

9300 032016 062700 000002 ADD #2,RO 
9301 032022 $51252: 

9302 032022 020027 000006 CMP RO, 46 
9303 032026 005003 BGT $51254 
9304 032030 INLINE <CLR RO.EXP(RO)> 

9305 032030 005060 000522 CLR RO.EXP(RO) 
9306 032034 END INC 

9307 032034 000770 BR $51253 
9308 032036 $51254: 

9309 REPEAT OUTER LOOP FOR TEST CASES 

9310 032036 INLINE <$5050:> 


9312 032036 CALL CL.RDSB :CLR DS BUFFERS 
9313 032036 004737 055520 JSR PC,CLRDSB 


9315 i+ 

ey) ; LOAD DATAXX AND CC.EXP FROM TEST CASE 

9319 032042 LET RO := TSTCAS 

9320 032042 013700 000542 MOV TSTCAS,RO 
9321 032046 LET DATAOO := (RO)+ 7SRC1 LENGTH 

9322 032046 012037 000560 MOV (RO) + ,DATAOO 
9323 032052 LET DATAO1 := (RO)+ POINTER TO SRC1 DATA 

9324 032052 012037 000562 . MOV (RO) +, ,DATAO1 
9325 032056 LET DATAO2 := (RO)+ ;SRC2 LENGTH 

9326 032056 012037 000564 MOV (RO) +, DATAO2 
9327 032062 LET DATAO3 := (RO)+ POINTER TO SRC2 DATA 

9328 032062 012037 000566 MOV (RO) +, DATAO3 
9329 032066 LET DATAO4 := (RO)+ DEST LENGTH 


0 
Nm 
~ 
Oo 
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9330 032066 012037 000570 MOV (RO) +,DATA0S 
9331 032072 LET DATAOS := (RO)+ sPOINTER TO DS.EXP DATA (SUM) 

9332 032072 012037 000572 MOV (RO)+,DATAOS 
93335 032076 LET CC.EXP := (RO)+ sCC.EXP (SUM) 

oe 032076 012037 000520 MOV (RO)+,CC.EXP 
9336 i+ 

9337 $ LOAD DSBUF 1 

3339 J 

9340 032102 IF DATAOO NE 40 THEN ;CHECK FOR ZERO LENGTH BUFFER 

93%41 032102 005737 000560 TST DATAOO 
9342 032106 001413 BEQ $51255 
93%43 032110 LET RO := DATAO1 

9344 032110 013700 000562 MOV DATAO1,RO 
9345 032114 LET SIGNO := (RO)+ ;STORE SIGN AND POINT AT FIRST BYTE 

9346 032114 012037 900446 MOV (RO)+,SIGNO 
9347 032120 LET R1 := DATAOO s# OF BYTES TO TRANSFER 

9348 032120 013701 000560 MOV DATAOO,R1 
9349 032124 LET R2 := #DSBUF1 3; TRANSFER DESTINATION 

9350 032124 012702 062370 MOV #DSBUF 1,R2 
9351 032130 INLINE <1$:> 

9352 032130 1$ 

9353 032130 INLINE <MOVB (RO)+,(R2)+> 

9354 032130 112022 MOVB (RO)+,(R2)+ 
9355 032132 INLINE <SOB R1,1$> 

9356 032132 077102 SOB R1,1$ 

9357 032134 ELSE 

9358 032134 000402 BR $51256 
9359 032136 $51255: 

9360 032136 LET SIGNO := 40 

9361 032136 005037 000446 CLR SIGNO 
9362 032142 ENDIF 

9363 032142 $51256: 

9364 

9365 s+ 

9366 3 LOAD DSBUF 2 

9367 :- 

9368 

9369 032142 IF DATAO2 NE #0 THEN 

9370 032142 005737 000564 TST DATAO2 
9371 032146 001413 BEQ $51257 
9372 032150 LET RO := DATAQ3 

9373 032150 013700 000566 MOV DATAQ3,RO 
9374 032154 LET SIGNI := (RO)+ 

9375 032154 012037 000450 MOV (RO)+,SI1GN1 
9376 032160 LET R1 := DATAO2 

9377 032160 013701 000564 MOV DATAO2,R1 
9378 032164 LET R2 := #DSBUF2 

9379 032164 012702 062432 MOV #DSBUF 2,R2 
9380 032170 INLINE <2$:> 

9381 032170 2s: 

9382 032170 INLINE <MOVB (RO)+,(R2)+> 

9383 032170 112022 MOVB (RO)+,(R2)+ 
9384 032172 INLINE <SOB F1,2$> 


$385 032172 077102 SOB R1,2% 
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9386 032174 ELSE 

9387 032174 000402 BR $51260 

9388 032176 $51257: 

9389 032176 LET SIGNI := 40 

9390 032176 005037 000450 CLR SIGN1 

9391 032202 ENDIF 

9392 032202 $51260: 

9393 

9394 3* 

9395 ; LOAD DS.EXP 

9396 = 

9397 

9398 032202 IF DATAO4 NE #0 THEN 

9399 032202 005737 000570 TST DATA04 

9400 032206 001415 BEQ $51261 

9401 032210 LET RO := DATAOS 

9402 032210 013700 000572 MOV DATAOS ,RO 
9403 032214 LET SIGN2 := (RO)+ 

9404 032214 012037 000452 MOV (RO) +,SIGN2 
9405 032220 LET R1 := DATA04 

9406 032220 013701 000570 MOV DATA04 ,R1 
9407 032224 LET R2 := #DS.EXP 

9408 032224 012702 062536 MOV #DS.EXP,R2 
9409 032230 INLINE <3$:> 

9410 032230 3$ 

9411 032230 INLINE <MOVB (RO)+,(R2)> 

9412 032230 112012 MOVB (RO) +, (R2) 
9413 032232 ‘ INLINE <BISB #60,(R2)+> 

9414 032232 152722 000060 BISB #60, (R2)+ 
9415 032236 INLINE <SOB R1,3$> 

9416 032236 07/7104 SOB R1,3$ 

9417 032240 ELSE 

9418 032240 000402 BR $51262 

9419 032242 $51261: 

9420 032242 LET SIGN2 := #0 

9421 032242 005037 000452 CLR SIGN2 

9422 032246 ENDIF 

9423 032246 $51262: 

9424 

9425 i+ 

eae ; LOAD DSTMP'S WITH MDS & LSD OF EACH BUFFER 

9428 

9429 032246 LET DSTMPO :B= DSBUF1 

9430 032246 113737 062370 000552 MOVB DSBUF 1,DSTMPO 
9431 032254 LET TEMPO := #DSBUF 1-1 + DATAQO 

9432 032254 012737 062367 000474 MOV #DSBUF 1-1, TEMPO 
9433 032262 063737 000560 000474 ADD DATAOO, TEMPO 
9434 032270 LET DSTMP1 :B= aTEMPO 

9435 632270 117737 146200 000553 MOVB @TEMPO ,DSTMP1 
9436 032276 LET DSTMP2 :B= DSBUF2 

9437 032276 113737 062432 000554 MOVB DSBUF 2 ,.DSTMP2 
9438 032304 LET TEMPO := #DSBUF2-1 + DATAO2 

9439 032304 012737 062431 000474 MOV #DSBUF 2-1, TEMPO 
9440 032312 063737 000564 000474 ADD DATAQ2, TEMPO 


9441 032320 LET DSTMP3 :B= aTEMPO 
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032320 117737 146150 000555 @TEMPO ,DSTMP3 

LET DSTMP4 :B= DS.EXP 

113737 062536 000556 DS.EXP,DSTMP4 
LET TEMPO := #DS.EXP=1 + DATA04 

012737 062535 000474 #DS.EXP=1, TEMPO 

063737 000570 000474 DATA04 , TEMPO 
LET DSTMPS5 :B= aTEMPO 

117737 146120 000557 @TEMPO ,DSTMP5S 
LET DESCR1 := #DSBUF1 

012737 062370 000616 A#DSBUF 1 ,DESCR1 
LET DESCR3 := #DSBUF2 

012737 062432 000622 ADSBUF 2 ,DESCR3 
LET DESCRS := #DS.DST 

012737 062474 000626 #DS.DST,DESCRS 


: INCR TEMPO FROM #1 TO #5 BY #41 SRC1 DATA TYPE LOOP 
INLINE <CLR @#TEMPO> 
005037 000474 CLR a#TEMPO 
INLINE <INC1: INC TEMPO> 
005237 060474 INC1: INC TEMPO 
IF TEMPO GT #5 THEN 
023727 000474 000005 CMP TEMPO, #5 
003402 


BLE $51263 
INLINE <JMP END1> 
000137 034246 JMP END1 
ENDIF 
032424 $51263: 


RESTORE MSD & LSD OF DSBUF1 


032424 LET DSBUF1 :B= DSTMPO MSD 
113737 062370 DSTMPO , DSBUF 1 
LET TEMP2 := #DSBUF 1-1 + DATAOO 
012737 000500 #DSBUF 1-1, TEMP2 
063737 000500 DATAOO, TEMP2 
LET @TEMP2 :B= DSTMP1 iLSD 
032446 113777 146024 DSTMP1 ,aTEMP2 


:+ 
: SIGN DSBUF1 BY DATA TYPE 


032454 SELECT TEMPO OF 5 
013746 TEMPO ,~(SP) 
3 (SP) 


C, (SP) 
(SP) +,PC 


Pp 
a 
$51272-$51264 


$51266-$51264 
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9498 032500 

9499 

9500 032500 013737 000560 

9502 032506 005737 000446 
001004 


504 14 

9505 032514 152777 000060 
506 22 

9507 032522 000403 


509 
9510 032524 152777 000160 


951 

9514 032532 105037 062367 
9517 032536 000512 

951 

032540 013737 000560 
032546 052737 020000 


05 
9523 032554 113705 000553 
9525 032560 023727 000446 
9526 001002 


9528 032570 062705 000012 
9529 


9532 032574 116577 055254 
34 
9535 032602 000470 
604 
95 032604 013737 000560 
9539 032612 052737 030000 


032620 
1 pesese 113705 000552 
9543 032624 023727 000446 
9544 001002 


954 
9546 032634 062705 000012 
9547 


9549 
9550 032640 116537 055254 
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000614 


145756 


145746 


000614 
000614 


177777 


145676 


000614 
000614 


177777 


062370 


LET DESCRO := DATAOO 
IF SIGNO EQ #0 THEN 


LET @TEMP2 :B= @TEMP2 SET.BY #60 ‘* 
ELSE 


LET @TEMP2 :B= aTEMP2 SET.BY #160) ;- 


ENDIF 
LET DSBUF1-1 :B= #0 


CASE 2 


LET DESCRO := DATAOO SET.BY #20000 


LET RS :B= DSTMP1 
IF SIGNO EQ #-1 THEN 


GET LSD 


LET RS := R5 + #10. 
ENDIF 
LET @TEMP2 :B= OVPNCH(RS) 


CASE 3 


LET DESCRO := DATAOO SET.BY #30000 


LET R5 :B= DSTMPO 
IF SIGNO EQ #-1 THEN 


GET MSD 


LET RS := RS + #10. 
ENDIF 
LET DSBUF1 :B= OVPNCH(RS) 


CASE 4 


:SIGNED ZONED 


$512 
FIX LEADING SEPARATE RESULT 


CHANGE INDEX FOR - 


$51272: 


$51273: 


$51271 
; TRAILING OVERPUNCH 


$51275: 


$51276: 


74: 


$51270: 
;LEADING OVERPUNCH 


SEQ 0201 


DATAOO ,DESCRO 


S$ 1GNO 
$51273 
#60,aTEMP2 
$51274 


#160,aTEMP2 


DSBUF 1=1 
$51265 

DATAOO ,DESCRO 
#20000 , DESCRO 


DSTMP1,R5 


SIGNO,#=1 
$51275 


#10. ,R5 


OVPNCH(R5S) ,@TEMP 
$51265 

DATAOO ,.DESCRO 
#30000 ,DESCRO 
DSTMPO RS 

SIGNO, 4-1 

$51276 

#10..R5 


OVPNCH(RS) ,DSBUF 
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9554 032646 000446 BR $51265 
9555 032650 $51267 
9556 032650 LET DESCRO := DATAOO SET.BY #40000 ; TRAILING SEPARATE 
9557 032650 013737 000560 000614 MOV DATAOO, DESCRO 
9558 032656 052737 040000 000614 BIS #40000, DESCRO 
9559 032664 LET RS := TEMP2 + #1 
9560 032664 013705 000500 MOV TEMP2,R5 
9561 032670 005205 INC R5 
9562 032672 IF SIGNO EQ #0 THEN 
9563 032672 005737 000446 TST $1GNO 
9564 032676 001003 BNE $51277 
9565 032700 LET (RS) :B= #53 :+ SIGN 
9566 032700 112715 000053 MOVB = #53, (RS) 
9567 032704 ELSE 
9568 032704 000402 BR $51300 
9569 032706 5 $51277: 
9570 032706 LET (RS) :B= #55 :- SIGN 
9571 032706 112715 000055 MOVB #55, (R5) 
9572 032712 ENDIF 
9573 032712 $51300: 
9574 
9575 032712 CASE 5 
9576 032712 000424 BR $51265 
9577 032714 $51266: 
9578 032714 LET DESCRO := DATAOO SET.BY 450000 ;LEADING SEPARATE 
9579 032714 013737 000560 000614 MOV DATAOO,DESCRO 
9580 032722 052737 050000 000614 BIS #50000, DESCRO 
9581 032730 LET RS := TEMP2 + #1 
9582 032730 013705 000500 MOV TEMP2 RS 
9583 032734 005205 INC R5 
9584 032736 LET (R5) :B= 40 ;RESTORE TRAILING SEPARATE 
9585 032736 105015 CLRB — (R5) 
9586 032740 IF SIGNO EQ #0 THEN 
9587 032740 005737 000446 TST SIGNO 
9588 032744 001004 BNE $51301 
9589 032746 LET DSBUF1-1 :B= #53 
9590 032746 112737 000053 062367 MOVB  #53.DSBUF 1-1 
9591 032754 ELSE 
9592 032754 000403 BR $51302 
9593 032756 $51301: 
9594 032756 LET DSBUF1=1 :B= #55 
9595 032756 112737 000055 062367 MOVB #55. DSBUF 1-1 
9596 032764 ENDIF 
9597 032764 $51302: 
9598 032764 ENDSELECT 
9999 032764 $51265: 
9601 :INCR TEMP1 FROM #1 TO #5 BY 41 SRC2 DATA TYPES 
9602 032764 INLINE <CLR @4TEMP1> 
9603 032764 005037 000476 CLR a TEMP1 
9604 032770 INLINE <INC2: INC TEMP1> 
9605 032770 005237 000476 INC2: INC TEMP1 
9606 032774 IF TEMP1 GT #5 THEN 
9607 032774 023727 000476 000005 CMP TEMP1 #5 
9608 033002 003402 BLE $51308 


9609 033004 INLINE <JMP END2> 


CJKDGA, KEF11-B8 CIS DIAGNOSTIC 
CJKDGA.P11 


032004 
033010 
033010 


033010 


033116 
033122 


033132 


12=MAR=80 13:37 
000137 034242 


000554 


062431 
000564 


000555 


113737 


012737 
063737 


113777 


013746 000476 


013737 


005737 
001004 


152777 
000403 


000544 
000450 


000060 


152777 000160 


105037 062431 
000512 


013737 
052737 


000564 
020000 


I 16 
MACY11 —— 14=MAR=80 08:04 PAGE 187 


062432 


000502 
000502 


145442 


000620 


145374 


145364 


000620 
000620 


ENDIF 


7 
; RESTORE MSD & LSD OF DSBUF2 


LET DSBUF2 :B= DSTMP2 
LET TEMP3 := #DSBUF2-1 + DATAQ2 


LET @TEMP3 :B= DSTMP3 


i+ 
; SIGN DSBUF2 BY DATA TYPE 


SELECT TEMP] OF 5 


CASE 1 
LET DESCR2 := DATAO2 
IF SIGN1 EQ #0 THEN 


LET @TEMP3 :B= @TEMP3 SET.BY #60 ;+ 
ELSE 


LET @TEMP3 :B= @TEMP3 SET.BY #160;- 
ENDIF 
LET DSBUF2-1 :B= 40 


CASE 2 


LET DESCR2 := DATAO2 SET.BY #20000 


$51 
TRAILING OVERPUNCH 


$51303: 


$51304: 


$51312: 


$51313: 


$51314: 


311: 





DSTMP2 , DSBUF 2 


A#DSBUF 2-1, TEMPS 
DATAO2, TEMPS 


DSTMP3,aTEMP3 


TEMP1 ,=(SP) 
(SP) 


PC, (SP) 
a(SP)+,PC 


$51312-$51304 
$51311-$51304 
$51310-$51304 


$51307-$51304 
$51306-$51304 


DATAO2 ,DESCR2 
$51513 

#60 ,aTEMP3 
$51314 


#160, aTEMP3 


DSBUF 2-1 
$51305 


DATAQ2 ,DESCR2 
#20000 ,DESCR2 
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9666 033140 LET RS :B= DSTMP3 

9667 033140 113705 000555 MOVB _— DS TMP3,,R5 
9668 033144 IF SIGN1 EQ #=1 THEN 

9669 033144 023727 000450 177777 CMP SIGN1,#=1 
9670 033152 001002 BNE $51315 

9671 033154 LET RS := RS + #10. 

9672 033154 062705 000012 ADD #10. .R5 
9673 033160 ENDIF 

9674 033160 , $51315: 

9675 033160 LET @TEMP3 :B= OVPNCH(R5) 

30r8 033160 116577 055254 145314 MOVB OVPNCH(R5) ,aTEMP 
9673 033166 CASE 3 

9679 033166 000470 BR $51305 

9680 033170 $51310: 

9681 033170 LET DESCR2 := DATAO2 SET.BY #30000 ;LEADING OVERPUNCH 

9682 033170 013737 000564 000620 MOV DATAO2,DESCR2 
9683 033176 052737 030000 000620 BIS #30000, DESCR2 
9684 033204 LET R5 :B= DSTMP2 

9685 033204 113705 000554 MOVB —— DSTMP2,R5 
9686 033210 IF SIGNI EQ #=1 THEN 

9687 033210 023727 000450 177777 CMP SIGN1,#=1 
9688 033216 001002 BNE $51316 

9689 033220 LET RS := R5 + #10. 

9690 033220 062705 00C312 ADD #10.,R5 

9691 033224 ENDIF 

9692 033224 $51316: 

9693 033224 LET DSBUF2 :B= OVPNCH(RS) 

96% 033224 116537 055254 062432 MOVB  OVPNCH(R5) , DSBUF 
96% 033232 CASE 4 

9697 033232 000446 BR $51305 

9698 033234 $51307 

9699 033234 LET DESCR2 := DATAO2 SET.BY #40000 ;: TRAILING SEPARATE 

9700 033234 013737 000564 000620 MOV DATAO2,DESCR2 
9701 033242 052737 040000 000620 BIS #40000, DESCR2 
9702 033250 LET RS := TEMP3 + #1 

9703 033250 013705 000502 MOV TEMP3,R5 
9704 033254 005205 INC R5 

9705 033256 IF SIGN1 EQ #0 THEN 

9706 033256 005737 000450 TST SIGNI 

9707 033262 001003 BNE $51317 

9708 033264 LET (RS) :B= #53 

9709 033264 112715 000053 MOVB #53, (R5) 
9710 033270 ELSE 

9711 033270 000402 BR $51320 

9712 033272 $51317: 

9713 033272 LET (R5) :B= #55 

9714 033272 112715 0060055 MOVB #55, (R5) 
9715 033276 ENDIF 

9716 033276 $51320: 

9718 033276 CASE 5 

9719 033276 000424 BR $51305 


9720 033300 $51306: 
9721 033300 LET DESCR2 := DATAO2 SET.BY #50000 ;LEADING SEPARATE 
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033350 


033350 


033374 


033374 
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013737 
052737 


013705 
005205 
105015 
005737 
001004 
112737 
000403 


112737 


005037 
005237 
023727 
003462 


000137 


113737 


012737 
063737 


113777 


013746 
006 
060716 


13:37 


000564 
050000 


000502 


000450 


000053 


000055 


000462 
000462 
000462 


034236 


000556 
062535 
000570 


000557 


000462 


MACY11 30A(1052) 
ADDN 


000620 
000620 


062431 


062431 


000005 


062536 
000504 
000504 


145060 
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LET RS := TEMPS + #1 


LET (R5) :B= #0 
IF SIGN] EQ #0 THEN 


LET DSBUF 2-1 :B= #53 


ELSE 


LET DSBUF 2-1 :B= #55 
ENDIF 
ENDSELECT 
:INCR DATTYP FROM #1 TO #5 BY #1 
INLINE <CLR @#DATTYP> 
INLINE <INC3: INC DATTYP> 


IF DATTYP GT #5 THEN 


INLINE <JMP END3> 
ENDIF 


:DS.EXP LOOP 


; RESTORE MSD & LSD OF DS.EXP 


LET DS.EXP :B= DSTMP4 :MSD 
LET TEMP4 := #DS.EXP-1 + DATA04 
LET @TEMP4 :B= DSTMPS :LSD 

i+ 

: SIGN DS.EXP BY DATA TYPE 


SELECT DATTYP OF 5 


$51321: 


$51322: 
$51305: 


$51323: 


SEQ 0205 
MOV DATAO2,DESCR2 
BIS #50000, DESCR2 
MOV TEMP3,R5 
INC R5 
CLRB (R5) 
TST SIGN1 
BNE $51321 
MOVB #53 ,DSBUF 2-1 
BR $51322 
MOVB #55 ,DSBUF 2-1 
CLR @#DATTYP 
INC3: INC DATTYP 
CMP DATTYP,#5 
BLE $51323 
JMP END3 
MOVB DSTMP4 ,DS.EXP 
MOV #DS.EXP-1, TEMPS 
ADD DATA04 , TEMP4 
MOVB DSTMPS ,aTEMP4 
MOV DATTYP,~(SP) 
ASL (SP) 
ADD PC, (SP) 
ADD @(SP)+,PC 
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033514 
033514 


033564 
033572 
033572 


033572 


152777 
000403 


152777 


105037 


000524 
013737 
052737 


005737 
001415 


113705 
162705 
023727 
001002 
062705 


116577 
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000570 
000570 


000452 


000060 


000160 


062535 


000570 
020000 


000570 


000557 
000060 
000452 


000012 


055254 
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000624 


145004 


144774 


000624 
000624 


177777 


144712 


CASE 1 
LET DESCR4 := DATA04 
IF DATAO4 NE #0 THEN 


SIGNED ZONED 


IF SIGN2 EQ #0 THEN 


LET @TEMP4 :B= @TEMP4 SET.BY #60 
ELSE 


LET @TEMP4 :B= @TEMP4 SET.BY #160 
ENDIF 
LET DS.EXP-1 :B= #0 

ENDIF 


CASE 2 


IF DATAO4 NE #0 THEN 


LET R5 :B= DSTMPS 
LET RS := RS - #60 
IF SIGN2 EQ #-1 THEN 


LET RS := RS + #10. 

ENDIF 

LET @TEMP4 :B= OVPNCH(RS) 
ENDIF 


CASE 3 


$51324: 


$51332: 


$51334: 


$51335: 


$51333: 


$51337: 


$51336: 


$51331: 
LET DESCR4 := DATAO4 SET.BY #20000 ; TRAILING OVERPUNCH 


SEQ 0206 


$51332-$51324 


$51326-$51324 


DATA04 ,DESCR4 


DATA04 
$51333 


SIGN2 
$51334 


#60 ,aTEMP4 
$51335 


#160 ,aTEMP4 


DS.EXP=1 


$51325 
DATA04 ,DESCR4 
#20000 ,DESCR4 


DATA04 
$51336 


DSTMPS5 ,R5 
#60,R5 


SIGN2,#=1 
$51337 


#10. .R5 


OVPNCH(RS) ,@TEMP 
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033572 


033714 
033714 


337. 
033740 


000475 
013737 
052737 


005737 
001415 


113705 
162705 
as 
062705 


116537 


000446 
013737 
052737 
013705 
005205 
005737 
001003 
112715 
000402 


112715 


000424 
013737 
052737 


013705 
005205 


13:37 


000570 
030000 
000570 


000556 
000060 
000452 


000012 


055254 
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000624 
000624 


177777 


6R 
$51330: 


LET DESCR4 := DATAO4 SET.BY #30000 ;LEADING OVERPUNCH 


IF DATAO4 NE #0 THEN 


LET RS :B= DSTMP4 
LET RS := RS = #60 
IF SIGN2 EQ #-1 THEN 


LET RS := RS + #10. 

ENDIF 

LET DS.EXP :B= OVPNCH(R5) 
ENDIF 


CASE 4 


LET RS := TEMP4 + #1 


IF SIGN2 EQ #0 THEN 


LET (R5) :B= #53 
ELSE 


LET (R5) :B= 
ENDIF 


CASE 5 


LET DESCR4 := DATAO4 SET.BY #50000 


LET RS := TEMP4 + #1 


LET (R5) :B= #0 


$51341: 


$51340: 


$51342: 


$51343: 


$51326: 


$51327: 
LET DESCR4 := DATAO4 SET.BY #40000 ; TRAILING SEPARATE 


$51325 
DATA04 ,DESCR4 
#30000 ,DESCR4 


DATA04 
$51340 


DSTMP4 ,R5S 
#60,R5 


SIGN2 ,#~1 
$51341 


#10. ,R5 


OVPNCH(R5S) ,DS.EX 


$51325 


DATA04 ,DESCR4 
#40000 . DESCR4 


TEMP4 ,R5 
R5 

SIGN2 
$51342 
#53,(R5) 


$51343 


#55, (R5) 


$51325 


DATA04 ,DESCR4 
#50000 ,DESCR4 


TEMP4 ,R5S 
R5 
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033740 105015 (R5) 
IF SIGN2 EQ #0 THEN 
005737 000452 
001004 


S1GN2 
$51344 
LET DS.EXP=1 :B= #53 , 
112737 000053 aa #53,DS.EXP=1 
000403 BR $51345 


$51344: 
3 LET DS.EXP=1 :B= 
112737 #55 ,DS.EXP=1 


ENDIF 
$51345: 

ENDSELECT 
$51325: 


CLR DS.DST & LOAD DESCRIPTORS 


LET RO := #DS.DST-1 
012700 #DS.DST-1,RO 
LET R1 := #41 
012701 #41,R1 
INLINE <DOIT1: CLRB (RO)+> 
105020 CLRB = (RO) + 
; INLINE <SOB R1, DOIT1> 
077102 R1, DOIT1 
LET RO := DESCRO 
013700 DESCRO,RO 
LET R1 := DESCR1 
013701 DESCR1,R1 
LET R2 := DESCR2 
013702 DESCR2,R2 
R3 := DESCR3 
013703 ; DESCR3.R3 
R4 := DESCR4G 
013704 DESCR4.R4 
RS := DESCRS 
013705 DESCRS,RS 
R4.EXP := RG 
010437 R4,R4.EXP 
RS.EXP := R5 
010537 RS,R5.EXP 
INLINE <ADDN> 
076050 


i+ 
; CHECK CONDITION CODES AND GPR*S FOR CORRECT RESULTS. 


LET CC := PSW 

013737 177776 000516 ore sso ee ee PSW,CC 
L := LR.BY # 

042737 177760 000516 #177760,CC 
IF CC NE CC.EXP THEN 
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023737 000516 000520 CC,CC.EXP 
001402 $51346 


CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$51346: 
IF RO NE RO.EXP THEN 
020037 000522 RO,RO.EXP 
$51347 


001402 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$51347: 
IF R1 NE R1.EXP THEN 
020137 000524 R1,R1.EXP 
001402 $51350 
CAi.L ERROR 
004737 056274 PC ERROR 


ENDIF 
$51350: 
IF R2 NE R2.EXP THEN 
020237 000526 MP R2,R2.EXP 
001402 $51351 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$51351: 
IF R3 NE R3.EXP THEN 


020337 000530 2R5. 
001202 R3,R3.EXP 


$51352 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$51352: 
IF R& NE R4&.EXP THEN 
020437 000532 R4,R4.EXP 
001402 cok aoe $51353 
004737 056274 PC,ERROR 


ENDIF 
$51355: 
020537 000534 IF RS NE R5.EXP THEN 5.RS 
001202 R5,R5.EXP 


CALL ERROR vse 
004737 056274 PC ERROR 


ENDIF 
$51354: 


CHECK RESULTS VS EXPECTED RESULTS 


:= ADS.DST-1 
#DS.EXP=1 


#DS.DST-1,RO 
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10002 012701 062535 #DS.EXP=1,R1 
10003 034200 LET ERRFLG := #0 

10004 000454 ERRFLG 
WHILE RO NE #DS.DST+40 AND ERRFLG EQ #0 DO $51355 


062534 CMP RO, ADS .DST+40 
$51 356 
000454 ERRFLG 
: $51356 
IFB (RO)+ NE (R1)+ THEN 
122021 MPB (RO) +, (R1)+ 
001402 $51357 
CALL ERROR 
004737 056274 PC ERROR 
ENDIF 
$51357: 
ENDDO 


000765 BR $51355 
$51356: 


ceErE 


2 SS oS eS 
WODNAUVUSWN—O 


888888888888888 


8 
VIS 


Zs ENDINC 
INLINE <JMP INC3> 
000137 033354 JMP INC3 
INLINE <END3:> 
END3: 
;ENDINC 
INLINE <JMP INC2> 
032770 JMP INC2 
INLINE <END2:> 
END2: 
sENDINC 
INLINE <JMP INC1> 
INLINE <END1:> 
LET TSTCAS := TSTCAS + #22 
LET COUNT := COUNT - #1 


UNTIL COUNT EQ 40 
IF COUNT NE #0 THEN 


JMP INC1 

END1: 

ADD #22, TSTCAS 
DEC COUNT 


10021 
1002 

10023 
10024 
10025 
10026 
10027 
10028 
10029 
10030 
10031 
10032 
10033 
10034 
10035 
10036 
10037 
10038 
10039 


ee 


TST COUNT 
BEQ $51360 


JMP $5050 
$51360: 


3 


INLINE <JMP $5050> 
ENDIF 


EEF 


838 


_— SS I SS Ss 
Ww 
OOoon 


8 


i+ 
: INLINE CASE - ADDNI, USING UNSIGNED ZONED DATA 


CALL CLRDSB 
055520 JSR PC, CLRDSB 


888888 
RAR 


LOAD DSBUF 1 
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10058 - 

10059 

10060 034276 LET RO := #ADD1+2 : SOURCE 

10061 034276 012700 063360 MOV #ADD1+#2,RO 
10062 034302 LET R1 := TADDI CLR.BY #10000 :# OF BYTES TO XFER 

10063 034302 013701 064052 MOV TADDI,R1 
10064 034 042701 010000 BIC #10000,R1 
10065 034312 LET R2 := #DSBUFI ;DESTINATION 

10066 034312 012702 062370 MOV ADSBUF 1 ,R2 
10067 034316 INLINE <1$: MOVB (RO)+, (R2)+> 

10068 034316 112022 1$: MOVB = (RO) +, 
10069 034320 INLINE < SOB R1, 1$> 

10070 034320 077102 SOB R1, 
10071 

10072 24 

10073 3 LOAD DSBUF 2 

10074 7 

10075 

10076 034322 LET RO := MADDIA+2 

10077 034322 012700 063402 MOV #ADD1A+2,RO 
10078 034326 LET R1 := TADDI+4 CLR.BY #10000 

10079 034326 013701 064056 MOV TADD1+4,R1 
10080 034332 042701 010000 BIC #10000,R1 
10081 0343 LET R2 := #DSBUF2 

10082 034336 012702 062432 MOV ADSBUF 2 ,R2 
10083 034342 INLINE <2$: MOVB (RO)+, (R2)+> 

10084 034342 112022 2$: MOVB = (RO) +, 
10085 034344 INLINE < SOB R1, 2$> 

10086 034344 077102 SOB R1, 
10087 

10088 s¢ 

10089 : LOAD DS.EXP 

10090 i= 

10091 

10092 034344 LET RO := #ADD18+2 

10093 03434 ) 63426 MOV #ADD1B+2,RO 
100% 03435 LET R1 := TADDI+10 CLR.BY #10000 

10095 0345- 1 064062 MOV TADDI+10,R1 
100% 034356 .. ui 010000 BIC #10000,R1 
10097 034362 LET R2 := ADS.EXP 

10098 034362 017702 062536 MOV #DS.EXP,R2 
10099 034366 INLINE <3$: MOVB  (RO)+, (R2)> 

10100 034366 112012 3$: MOVB (RO) +, 
10101 034370 INLINE < BISB #60, (R2)+> : 

10102 034370 152722 000060 ; BISB #60, 
10103 034374 INLINE < SOB R1, 3$> 

10104 034374 077104 . SOB R1, 
10106 034376 CALL CLRREG ZENSURE RO-R5 ARE CLR 

10107 034376 004737 055330 JSR PC, CLRREG 
10109 034402 INLINE <ADDNI> 

10110 034402 076150 ADDNI 

10111 034404 INLINE <.WORD TADDI> 

10112 034404 064052 : .WORD TADDI 

10113 034406 INLINE <.WORD TADD!+4> 
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10114 034406 064056 -WORD TADDI+4 
10115 034410 INLINE <.WORD TADDI+10> 
10116 034410 064062 -WORD TADDI+10 
10117 034412 LET CC := PSW 
10118 034412 013737 177776 000516 MOV PSW,CC 
10119 034420 LET CC := CC CLR.BY #177760 
10120 034420 042737 177760 000516 BIC #177760,CC 
10121 934426 IF CC NE #0 THEN 
10122 034426 005737 000516 TST cc 
10123 034432 001402 BEQ $51361 
10124 034434 CALL ERROR 
10125 034434 004737 056274 JSR PC,ERROR 
10126 034440 ENDIF 
10127 034440 $51361: 

10128 

10129 s* 

10130 ; ENSURE GPR'S STILL ZERO 

10131 :- 

10132 

10133 034440 IF RO NE #0 OR R1 NE #0 OR R2 NE &0 THEN 

10134 034440 005700 TST RO 
10135 034442 001004 BNE $51362 
10136 034444 005701 TST R1 
10137 001 BNE $51362 
10138 034450 005702 TST R 
10139 034452 001402 BEQ $51363 
10140 034454 $51362: 

10141 034454 CALL ERROR 

10142 034454 004737 056274 JSR PC,,ERROR 
10143 034460 ENDIF 

10144 034460 $51363: 

10145 034460 IF R3 NE #0 OR R4 NE #0 OR RS NE 40 THEN 

10146 034460 005703 TST R3 
10147 034462 001004 BNE $51364 
10148 034464 005704 TST R4 
10149 034466 001002 BNE $51364 
10150 034470 005705 TST RS 
10151 034472 001402 BEQ $51365 
10152 034474 $51364: 

10153 034474 CALL ERROR 

10154 034474 004737 056274 JSR PC ERROR 
10155 034500 ENDIF 

10156 034500 $51365: 

10157 

10158 i+ 

10159 : CHECK RESULTS 

10160 i- 

10161 

10162 034500 LET RO := ADS.DST 

10163 034500 012700 062474 MOV #DS.DST.RO 
10164 034504 LET R1 := #DS.EXP sEXPECTED DATA 

10165 034504 012701 062536 MOV #DS.EXP,R1 
10166 034510 LET ERRFLG := #0 

10167 034510 005037 000454 CLR ERRFLG 
10168 034514 WHILE RO NE #DS.DST+40 AND ERRFLG EQ 40 DO 

10169 034514 $51366: 
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10170 034514 020027 062534 (MP RO,#DS.DST+40 
10171 034520 001410 BEQ $51 367 
10172 034522 005737 000454 TST ERRFLG 
10173 034526 001005 BNE $51367 
10174 034530 IFB (RO)+ NE (R1)+ THEN 

10175 034530 122021 CMPB ss (RO) +, (R1) + 
10176 034532 001402 BEQ $51370 
10177 034534 CALL ERROR 

10178 034534 004737 056274 JSR PC ERROR 
10179 034540 ENDIF 

10180 034540 $51370: 

10181 034540 ENDDO 

10182 034540 000765 BR $51366 
1018 034542 $51367: 
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10186 .SBTTL SUBN 

10187 FREER ERE AE EEE REE ERE 

10188 : 

dt ; SUBN TEST 

10191 PITITITITITIITITItTTI TTT TTT ittiiitii titi titi ti tititititi titi t titty 

10192 

10193 034542 INLINE <XSUBN:> 

10194 034542 XSUBN: 

10195 034542 INLINE <SCOPE> 

10196 034542 000004 SCOPE 

10197 034544 LET STIMES := #10 ; ITERATION COUNT : 

10198 034544 012737 000010 000404 MOV #10,$TIMES 
10199 034552 LET COUNT := TADD 34 OF TEST CASES 

10200 034552 013737 063200 000466 MOV TADD , COUNT 
10201 0345 LET TSTCAS := ATADD+2 ;POINT TO FIRST TEST CASE 

Ieee 034560 012737 063202 000542 MOV MTADD+2, TSTCAS 
10204 i+ 

10205 ; CLR RO.EXT TO R3.EXP 

10206 ‘- 

10207 

10208 034566 INCR RO FROM #0 TO #6 BY #2 

10209 034566 005000 CLR RO 

10210 034570 000402 BR $51371 

10211 034572 $51372: 

10212 034572 062700 000002 ADD #2,R0 

10213 034576 $51371: 

10214 034576 020027 000006 CMP RO,46 

10215 034602 003003 BGT $51373 
10216 034604 INLINE <CLR RO.EXP(RO)> 

10217 034604 005060 000522 CLR RO.EXP(RO) 
10218 034610 END INC 

10219 034610 000770 BR $51372 
10220 034612 $51373: 

10221 ;REPEAT OUTER LOOP FOR TEST CASES 

10222 034612 INLINE <$5051:> 

10223 034612 $5051: 

10224 034612 CALL CLRDSB :CLR DS BUFFERS 

10225 034612 004737 055520 JSR PC, CLRDSB 
10226 

10227 i+ 

10228 ; LOAD DATAXX AND CC.EXP FROM TEST CASE 

10229 = 

10230 

10231 034616 LET RO := TSTCAS 

10232 034616 013700 000542 MOV TSTCAS,RO 
10233 034622 LET DATAOO := (RO)+ ;SRC1 LENGTH 

10234 034622 012037 000560 MOV (RO) +, DATAOO 
10235 034626 LET DATAO1 := (RO)+ ;POINTER TO SRC1 DATA 

10236 034626 012037 000562 MOV (RO) +, DATAO1 
10237 034632 LET DATAO2 := (RO)+ ;SRC2 LENGTH 

10238 034632 012037 000564 MOV (RO) + ,DATAO2? 
10239 034636 LET DATAO3 := (RO)+ zPOINTER TO SRC2 DATA 

10240 034636 012037 000566 MOV (RO) + ,DATAO3 

034642 LET DATAO4 := (RO)+ ;DEST LENGTH 





J. 1 
CJKDGA, KEF11-8 CIS DIAGNOSTIC MACY11 —— 14=MAR=80 08:04 PAGE 199 
CJKDGA.P11 12=-MAR=80 13:37 SEQ 0215 


012037 000570 MO (RO) + ,DATA04 
LET DATAOS := (RO)+ sPOINTER TO DS.EXP DATA (SUM) 

012037 000572 MO (RO) +,DATAOS 
LET CC.EXP := (RO)+ 3CC.EXP (SUM) 

012037 000520 MO (RO)+,CC.EXP 
LET DATAOS := (RO)+ POINTER TO DS.EXP DATA (DIFF) 

012037 000572 MO (RO) + ,DATAOS 
LET CC.EXP := (RO)+ 3CC.EXP (DIFF) 

012037 000520 (RO)+,CC.EXP 


: LOAD DSBUF1 


IF DATAOO NE #0 THEN CHECK FOR ZERO LENGTH BUFFER 
005737 


DATAOO 

001413 BEQ © $51374 
LET RO := DATAO1 

013700 MOV —DATAO1,RO 
LET SIGNO := (RO)+ ;STORE SIGN AND POINT AT FIRST BYTE 

012037 MOV —- (RO) +, SIGNO 
LET R1 := DATAOO ;# OF BYTES TO TRANSFER 

013701 | DATAOO,R1 
LET R2 := #DSBUFI ; TRANSFER DESTINATION 

012702 #DSBUF 1 R2 
INLINE <1$:> 


INLINE <MOVB (RO)+,(R2)+> 


112022 MOVB (RO)+,(R2)+ 
‘i INLINE <SOB R1,1$> 
077102 SOB R1,1$ 
ELSE 
000402 BR $51375 


$51374: 
LET SIGNO := #0 
005037 S1GNO 


ENDIF 
$51375: 


: LOAD DSBUF2 


IF DATAO2 NE #) THEN 
005737 


DATAO2 
sebies BEQ $51576 
LET RO := DATA03 
sin DATAO3.,RO 
012037 LET SIGNI := (RO)+ we 
+ 
LET R1 := DATAO2 «SIGN 
orsink DATAQ2 ,R1 
012702 LET R2 := #DSBUF2 op 
oR 
INLINE <2$:> #DSBUF 
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INLINE <MOVB (RO)+, (R2)+> 
112022 MOVB (RO)+, (R2)+ 
INLINE <SOB R1,2$> 
077102 SOB R1,2$ 
ELSE 
000402 BR $51377 


$51376: 
LET SIGNI := 40 
005037 CLR SIGN1 


ENDIF 
$51377: 


LOAD DS.EXP 


IF DATAO4 NE #0 THEN 

005737 DATA04 

001415 $51400 
LET RO := DATAOS 

013700 MOV DATAOS RO 
LET SIGN2 := (RO)+ 

012037 MOV (RO)+,SIGN2 
LET R1 := DATAO4 

013701 MOV DATA04 ,R1 
LET R2 := #DS.EXP 

012702 MOV #DS.EXP,R2 
INLINE <3$:> i 


INLINE <MOVB (RO)+,(R2)> 
112012 MOVB (RO)+, (R2) 
INLINE <BISB #60, (R2) +> 
152722 BISB = #60, (R2)+ 
INLINE <SOB R1,3$> 
077104 SOB R1,3$ 
ELSE 
000402 BR $51401 


$51400: 
LET SIGN2 := 40 
005037 SIGN2 
ENDIF 
035032 $51401: 


i+ 
: LOAD DSTMP'S WITH MDS & LSD OF EACH BUFFER 


035032 LET DSTMPO :B= DSBUF1 
0350 113737 DSBUF 1 ,DSTMPO 
LET TEMPO := #DSBUF1-1 + DATAOO 
012737 #DSBUF 1-1 , TEMPO 
063737 DATAOO, TEMPO 
117737 LET DSTMP1 :B= aTEMPO eeuee neuer 
-DSTMP 
LET DSTMP2 :B= DSBUF2 , 
113737 DSBUF 2 ,DSTMP2 
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LET TEMPO := #DSBUF2=1 + DATA02 
012737 062431 000474 MOV #DSBUF 2-1 , TEMPO 
063737 000564 000474 DATAO2, TEMPO 
LET DSTMP3 :B= aTEMPO 
117737 143364 000555 MOVB @TEMPO ,DSTMP3 
LET DSTMP4 :B= DS.EXP 
113737 062536 000556 MOVB DS.EXP ,DSTMP4 
LET TEMPO := #DS.EXP=1 + DATA04 
012737 062535 000474 MOV #DS.EXP=1 , TEMPO 
063737 000570 000474 ADD DATA04 , TEMPO 
LET DSTMPS :B= aTEMPO 
117737 143334 000557 MOVB @TEMPO ,.DSTMPS 
DESCR1 := #DSBUF1 
012737 062370 000616 MOV #DSBUF 1 ,DESCR1 
DESCR3 := #DSBUF2 
012737 062432 000622 MOV #DSBUF 2 ,DESCR3 
DESCRS := #DS.DST 
012737 062474 000626 MOV #DS .DST ,DESCRS 


;_INCR_TEMPO FROM #1 TO #5 BY #1 SRC1 DATA TYPE LOOP 
* INLINE <CLR @#TEMPO> 
005037 000474 CLR @#TEMPO 
INLINE <INC21: INC TEMPO> 
005237 000474 INC21: INC TEMPO 
IF TEMPO GT #5 THEN 
023727 000474 5 CMP TEMPO ,#5 
003402 


BLE $51402 
INLINE <JMP END21> 
000137 037036 JMP END21 
ENDIF 
035210 $51402: 


aa 
: RESTORE MSD & LSD OF DSBUF1 


035210 LET DSBUF1 :B= DSTMPO 2MSD 
113737 062370 DSTMPO ,DSBUF 1 
012737 000500 LET TEMP2 := #DSBUF1~-1 + DATAOO - 11 Teee 
063737 000560 000500 DATAOO, TEMP2 
LET @TEMP2 :B= DSTMP1 :LSD 
113777 143240 DSTMP1 ,aTEMP2 


i+ 
: SIGN DSBUF1 BY DATA TYPE 


013746 many Tee eS TEMPO, ~(SP) 
006316 (SP) * 


PC, (SP) 
a(SP)+,PC 


oer $51411-$51403 
035254 : $51410-$51403 
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035256 ° $51407-$51403 
035260 ° $51406-$51403 
$51405-$51403 
CASE 1 
LET DESCRO := DATAOO 3SIGNED ZONED 


IF SIGNO EQ #0 THEN 


$51411: 
DATAOO ,DESCRO 


at aa aah aD al a td ceed ed ad 
WONAUSWN—O 


S1GNO 
$51412 
LET @TEMP2 :B= aTEMP2 SET.BY #60 ; 
143172 #60 ,aTEMP2 


ELSE 
$51413 


<8 


RRRRRRRREKKKK 


$8 


$51412: 
LET @TEMP2 :B= aTEMP2 SET.BY #160 ;- 
152777 143162 #160, aTEMP2 
ENDIF 
1413: 


$5 
LET DSBUF1-1 :B= #0 :FIX LEADING SEPARATE RESULT 
105037 DSBUF 1-1 


CASE 2 
000512 $51404 
$51410: 
LET DESCRO := DATAOO SET.BY #20000 ;TRAILING OVERPUNCH 
013737 000560 000614 MOV DATAOO ,DESCRO 
052737 020000 000614 #20000 ,DESCRO 
LET RS :B= DSTMP1 :GET LSD 
113705 000553 DSTMP1,R5 


IF SIGNO EQ #-1 THEN 
023727 000446 177777 IGNO ,#=1 
001002 


S 
$51414 
LET RS := R5 + #10. CHANGE INDEX FOR - 
062705 000012 #10. ,R5 


ENDIF 
$51414: 
LET @TEMP2 :B= OVPNCH(RS) 
116577 055254 143112 OVPNCH(RS) ,@TEMP 


CASE 3 
000470 $51404 


$51407: 
see LET DESCRO := DATAOO SET.BY #30000 =; LEADING OVERPUNCH An rela nc 
052737 030000 #30000. DESCRO 
LET RS :B= DSTMPO _—s; GET MSD 
113705 DSTMPO,.RS 
conten IF SIGNO EQ #-1 {HEN aie 
001002 BNE 


$51415 
LET RS := RS + #10. 
062705 #10. .R5 


ENDIF 
$51415: 
LET DSBUF1 :B= OVPNCH(RS) 


— a ed ot 8 ed od SF 2 2 


PPRRRR 
BWYVULVD 


RRRRE 
Sinenines 


10435 
104 

10437 
10438 
10439 


— 


SRREEE 


as: 


BORaRNes SAN 


RERRERERE 
oO 


eo 9 a oo 


é 
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035424 116537 055254 OVPNCH(R5) , DSBUF 


035432 CASE 4 
000446 $51404 


$51406 
LET DESCRO := DATAOO SET.BY #40000 ; TRAILING SEPARATE 
013737 DATAOO ,DESCRO 
052737 040000 #40000 ,DESCRO 
LET RS := TEMP2 + #1 
013705 TEMP2 ,R5 
0 R5 


005205 
IF SIGNO EQ #0 THEN 
005737 SIGNO 
001003 $51416 
LET (R5) :B= #53 
112715 #53, (R5) 


ELSE 
000402 $51417 


$51416: 
LET (R5) :B= 
112715 #55, (R5) 
035476 ENDIF 
035476 $51417: 


035476 CASE 5 
000424 $51404 
$51405: 
LET DESCRO := DATAOO SET.BY #50000 s;LEADING SEPARATE 
013737 DATAOO ,DESCRO 
052737 #50000 .DESCRO 
. LET R5 := TEMP2 + #1 
013705 ree 
R 


005205 
LET (R5) :B= #0 ;RESTORE TRAILING SEPARATE 

105015 (R5) 
IF SIGNO EQ #0 THEN 

005737 

001004 


SSRRRRPRRER IS VeRO SOBER 


10491 
10492 
10493 


S1GNO 
$51420 
LET DSBUF1-1 :B= #53 
112737 #53 ,DSBUF 1-1 
ELSE 
000403 BR $51421 


$51420: 
LET DSBUF1-1 :B= #55 
112737 #55 ,DSBUF 1-1 


ENDIF 
net $51421: 
035550 $51404: 


:INCR_TEMP1 FROM #1 TO #5 BY #1 SRC2 DATA TYPES 
035550 INLINE <CLR @#TEMP1> 
035550 CLR @#TEMP1 
035554 INLINE <INC22: INC TEMP1> 
035554 INC22: INC TEMP1 


— —a4— 
ooooo 


_ 
oS 
Sausaranuee 
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IF TEMP1 GT #5 THEN 
023727 000476 000005 CMP TEMP1 #5 
003402 BLE $51422 
INLINE <JMP END22> 
000137 037032 JMP END22 


ENDIF 
$51422: 
LET R3 := #DSBUF2 
012703 062432 MOV #DSBUF 2 ,R3 


i+ 
: RESTORE MSD & LSD OF DSBUF2 


, LET DSBUF2 :B= DSTMP2 
113737 062432 DSTMP2 ,DSBUF 2 
LET TEMP3 := #DSBUF2-1 + DATAO2 
012737 000502 ADSBUF 2-1 , TEMPS 
063737 0005 000502 DATAO2, TEMPS 
LET @TEMP3 :B= DSTMP3 
113777 142652 DSTMP3 ,aTEMPS 


+ 
: SIGN DSBUF2 BY DATA TYPE 


SELECT TEMP1 OF 5 

013746 TEMP1 ,~(SP) 

006316 (SP) 
PC, (SP) 
a(SP)+,PC 
$51431-$51423 
$51430-$51423 
$51427-$51423 
$51426-$51423 
$51425-$51423 


$51423: 


CASE 1 
LET DESCR2 := DATAO2 
IF SIGN1 EQ 40 THEN 


$51431: 
DATAO2 .DESCR2 


SIGNI 
$51432 


LET @TEMP3 :B= @TEMP3 SET.BY #60 ;+ 

152777 #60 ,aTEMP3 
ELSE 

000403 $51433 


LET aTEMP3 :B= @TEMP3 SET.BY #160 chi 
ere: ie . #160,aTEMP3 


ENDIF 
LET DSBUF2-1 :B= #0 nas 
105037 v" DSBUF 2~1 
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035712 CASE 2 
000512 $51430 BR $51424 
LET DESCR2 := DATAO2 SET.BY #20000 ; TRAILING OVERPUNCH 
013737 000564 000620 DATAO2 ,DESCR2 
052737 020000 000620 #20000 ,DESCR2 
LET R5 :B= DSTMP3 
113705 000555 DSTMP3,R5 
IF SIGN1 EQ #=-1 THEN 
023727 000450 177777 SIGN1 ,#=1 
001002 $51434 
LET RS := R5 + #10. 
062705 000012 #10. ,R5 
ENDIF 


LET @TEMP3 :B= OVPNCH(RS) 
035750 116577 055254 142524 OVPNCH(R5) ,@TEMP 


035756 CASE 3 

000470 $51424 

$51427: 
LET DESCR2 := DATAO2 SET.BY #30000 ;LEADING OVERPUNCH 
013737 000564 000620 DATAO2 ,DESCR2 
052737 030000 000620 #30000 ,DESCR2 
LET RS :B= DSTMP2 
113705 000554 DSTMP2 RS 
IF SIGN1 EQ #-1 THEN 

023727 000450 177777 SIGNI ,#=1 
001002 


$51435 
LET RS := R5 + #10. 
062705 000012 #10. ,.R5 


ENDIF 
$51435: 
LET DSBUF2 :B= OVPNCH(RS) 
116537 055254 OVPNCH(RS) ,DSBUF 


CASE 4 
000446 $51424 


$51426: 
LET DESCR2 := DATAO2 SET.BY #40000 ;TRAILING SEPARATE 
013737 DATAO2 ,DESCR2 
052737 040000 #40000 ,DESCR2 
LET R5 := TEMP3 + #1 
013705 TEMP3,R5 
005205 R5 


IF SIGN1 EQ 40 THEN 


SEQ 0221 


SESRREEEES 
WONAUSWN—O 


ek ek ek ed ed ed td = as od od 


RERRE 


005737 
001003 


SIGNI 
$51436 
LET (R5) :B= #53 


112715 #53, (R5) 
ELSE 
000402 $51437 


LET (R5) :B= 
112715 #55,(R5) 
END IF 


Seeeeees 


ae) 
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$51437: 


CASE 5 
000424 BR $51424 


$5 
LET DESCR2 := DATAO2 SET.BY #50000 ;LEADING SEPARATE 


1425: 


106 

: 

; 

1 013737 DATAO2 ,DESCR2 
1 052737 #50000 ,DESCR2 
1 LET RS := TEMPS + #1 

1064 013705 TEMP3,R5 
10644 036 005205 RS 

1064 LET (R5) :B= #0 

10646 105015 (R5) 
10647 IF SIGNI EQ #0 THEN 

1 005737 S1GN1 
; 001004 


$51440 
0650 LET DSBUF2-1 :B= #53 

10651 036122 112737 #53 ,DSBUF 2-1 
10652 130 ELSE 

ba 000403 BR $51441 


$51440: 
10655 0361 LET DSBUF2-1 :B= 
10656 112737 #55 ,DSBUF 2-1 


ENDIF 
$51441: 
ENDSELECT 
$51424: 


:INCR DATTYP FROM #1 TO #5 BY #1 :DS.EXP LOOP 
INLINE <CLR @#DATTYP> 
005037 000462 CLR @#DATTYP 
INLINE <INC23: INC DATTYP> 
005237 000462 INC23: INC DATTYP 
IF DATTYP GT #5 THEN 
023727 000462 CMP DATTYP,#5 
003402 


BLE $51442 
INLINE <JMP END23> 
000137 037026 JMP END23 


ENDIF 
$51442: 


s® 


: RESTORE MSD & LSD OF DS.EXP 


LET DS.EXP :B= DSTMP4 :MSD 
113737 062536 DSTMP4 ,DS .EXP 
012737 000506 LET TEMP4 := #DS.EXP-1 + DATA04 26.04 toe 
. x! wv 
063737 000570 000504 DATA04 , TEMP4 
LET @TEMP4 :B= DSTMPS :LSD 
113777 142270 DSTMPS ,aTEMP4 


SIGN DS.EXP BY DATA TYPE 
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SELECT DATTYP OF 5 
013746 000462 MOV DATTYP,=(SP) 
006316 (SP) 


PC, (SP) 
a(SP)+,PC 


$51451-$51443 


$51443: 


CASE 1 $51445-$51443 


$51451: 
LET DESCR4 := DATA04 sSIGNED ZONED 
013737 000570 000624 DATA04 ,DESCR4 
IF DATAO4 NE #0 THEN 
005737 000570 ot 04 


A 
001414 452 
IF SIGN2 EQ #0 THEN 
005737 000452 
001004 


SIGN2 
$51453 
LET @TEMP4 :B= @TEMP4 SET.BY #60 
152777 000060 142214 ~~ #60 ,aTEMP4 
000403 $51454 


$51453: 
LET @TEMP4 :B= aTEMP4 SET.BY 4160 
152777 #160, aTEMP4 


ENDIF 
$51454: 
LET DS.EXP=1 :B= #0 
105037 DS.EXP=1 


ENDIF 
$51452: 


CASE 2 
000524 $51444 
$51450: 
LET DESCR4 := DATAO4 SET.BY #20000 ;: TRAILING OVERPUNCH 
013737 MOV DATA04 ,DESCR4 
052737 020000 #20000 ,DESCR4 
IF DATAO4 NE #0 THEN 


005737 DATA04 

001415 BEQ $51455 
LET RS :B= DSTMPS 

113705 DSTMPS RS 
LET RS := R5 = #60 

sions IF SIGN2 EQ #-1 THE = 

#-1 THEN 
023727 177777 SIGN2,#~1 
001002 


LET RS := R5 + #10 $51456 
eae #10..R5 


ENDIF 
$51456: 
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LET @TEMP4 :B= OVPNCH(RS) 

116577 055254 142122 OVPNCH(R5) ,@TEMP 


ENDIF 
$51455: 


CASE 3 
000475 BR $51444 


$51447: 
LET DESCR4 := DATAO4 SET.BY #30000 ;LEADING OVERPUNCH 
013737 000570 DATA04 ,DESCR4 
052737 030000 #30000 ,DESCR4 
IF DATAO4 NE #0 THEN 

005737 000570 DATAO4 
001415 $51457 

LET RS :B= DSTMP4 
113705 000556 DSTMP4 ,R5 

LET RS := R5 = #60 
162705 000060 #60,R5 

IF SIGN2 EQ #=-1 THEN 
023727 000452 177777 SIGN2 ,#~1 
001002 BNE $514 


66 
LET RS := RS + #10. 
062705 000012 #10.,R5 


ENDIF 
$51460: 
LET DS.EXP :B= OVPNCH(RS) 
116537 055254 OVPNCH(RS) ,DS.EX 


ENDIF 
$51457: 


CASE 4 

000446 $51444 
$51446: 

LET DESCR4 := DATAO4 SET.BY #40000 ; TRAILING SEPARATE 
013737 DATA04 ,DESCR4 
052737 040000 #40000 ,DESCR4 
013705 LET RS := TEMP4 + #1 aye 

TEMP4 ,R 
005205 RS 
IF SIGN2 EQ #0 THEN 


005737 
001003 


SIGN2 
$51461 
LET (R5) :B= #53 


112715 #53, (R5) 
ELSE 
000402 $51462 


LET (R5) :B= stahestt 
112715 : #55, (R5) 


ENDIF 
$51462: 


CASE 5 
$51444 
$51445: 
LET DESCR4 := DATAO4 SET.BY #50000 
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013737 000570 000624 DATA04 ,DESCR4 

052737 050000 000624 #50000 , DESCR4 
LET RS := TEMP4 + #1 

013705 000504 le 


005205 
LET (R5) :B= #0 

105015 (R5) 
IF SIGN2 EQ #0 THEN 

005737 

001004 


VIEW 


SIGN2 
$51463 
LET DS.EXP=1 :B= #53 
112737 062535 ELSE #53,DS.EXP=1 
000403 BR $51464 


$51463: 
LET DS.EXP-1 :B= #55 
112737 062535 #55 ,DS.EXP=1 


ENDIF 
$51464: 

ENDSELECT 
$51444: 


iusto EEE ESE eE Cri ci ct 


CLR DS.DST & LOAD DESCRIPTORS 


:= A#DS.DST-1 
012700 “as #DS.DST-1,RO 
012701 #41,R1 
<DOIT:  CLRB (RO) +> 
tne <s0oBséRR DOIT> = | om 
077102 aaeaati R1, DOIT 
013700 DESCRO,RO 
:= DESCR1 
013701 DESCR1,R1 
:= DESCR2 
013702 DESCR2,R2 
:= DESCR3 
013703 DESCR3,R3 
:= DESCR4 
013704 DESCR4,R4 
:= DESCRS 
013705 DESCRS.RS 
R4.EXP := RG 
010437 R4,R4.EXP 
RS.EXP := R5 
010537 A ei RS.RS.EXP 
076051 


i+ 
; CHECK CONDITION CODES AND GPRS FOR CORRECT RESULTS. 
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SEQ 0226 
10858 
10859 036634 LET CC := PSW 
10860 036634 013737 177776 000516 MOV PSw,CC 
10861 036642 LET CC := CC CLR.BY #177760 
10862 036642 042737 177760 000516 BIC #177760,CC 
10863 036650 IF CC NE CC.EXP THEN 
10864 036650 023737 000516 000520 CMP CC,CC.EXP 
10865 036656 001402 BEQ $51465 
10866 036660 CALL ERROR 
10867 036660 004737 056274 JSR PC,ERROR 
10868 036664 ENDIF 
10869 036664 $51465: 
10870 036664 IF RO NE RO.EXP THEN 
10871 036664 020037 000522 CMP RO,RO.EXP 
10872 036670 001402 BEQ $51466 
10873 036672 CALL ERROR 
10874 036672 004737 056274 JSR PC ERROR 
10875 036676 ENDIF 
10876 036676 $51466: 
10877 036676 IF R1 NE R1.EXP THEN 
10878 036676 020137 000524 CMP R1,R1.EXP 
10879 036702 001402 BEQ $51467 
10880 036704 CALL ERROR 
10881 036704 004737 056274 JSR PC ERROR 
10882 036710 ENDIF 
10883 036710 $51467: 
10884 036710 IF R2 NE R2.EXP THEN 
10885 036710 020237 000526 CMP R2,R2.EXP 
10886 036714 001402 BEQ $51470 
10887 036716 CALL ERROR 
10888 036716 004737 056274 JSR PC ERROR 
10889 036722 ENDIF 
10890 036722 $51470: 
10891 036722 IF R3 NE R3.EXP THEN 
10892 036722 020337 000530 CMP R3,R3.EXP 
10893 036726 001402 BEQ $51477 
10894 036730 CALL ERROR 
10895 036730 004737 056274 JSR PC ERROR 
10896 036734 ENDIF 
10897 036734 $51471: 
10898 036734 IF R4& NE R4.EXP THEN 
10899 036734 020437 000532 CMP R4.R4.EXP 
10900 036740 001402 BEQ $51472 
10901 036742 CALL ERROR 
10902 036742 004737 056274 JSR PC ERROR 
10903 036746 ENDIF 
10904 036746 $51472: 
10905 036746 IF RS NE RS.EXP THEN 
10906 036746 020537 000534 CMP R5.RS.EXP 
10907 036752 001402 BEQ $51473 
10908 036754 CALL ERROR 
10909 036754 004737 056274 JSR PC ERROR 
10910 036760 ENDIF 
10911 036760 $51473: 
10912 
10913 
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CHECK RESULTS VS EXPECTED RESULTS 
LET RO := #DS.DST=1 
012700 #DS.DST=-1,RO 
LET R1 := #DS.EXP=1 
012701 #DS.EXP=1,R1 
LET ERRFLG := #0 
ERRFLG 


WHILE RO NE #4DS.DST+40 AND ERRFLG EQ 40 DO 
$51474: 
C RO, 4DS.DST+40 
$51475 


ERRFLG 
$51475 


(RO)+,(R1)+ 
7 


$51476 
CALL ERROR 
056274 PC ERROR 


ENDIF 
$51476: 
ENDDO 


IFB (RO)+ NE (R1)+* THEN 


$51474 
$51475: 
sENDINC 
INLINE <JMP INC23> 


INLINE <END23:> 


JMP INC23 
END23: 


z 


; ENDINC 
INLINE <JMP INC22> 
035554 JMP INC22 
INLINE <END22:> 
END22: 


sENDINC 
INLINE <JMP INC21> 
035170 JMP INC21 
INLINE <END21:> 
END21: 


LET TSTCAS := TSTCAS + #22 

000022 000542 ADD #22, TSTCAS 
LET COUNT := COUNT - #1 

000466 DEC COUNT 
iPad 

000466 TST 


Be $5147 
INLINE <JMP $5051> 
034612 JMP $5051 


ENDIF 
$51477: 


SgUFEPELIII ISIE UIISEEEDS 


INLINE CASE = SUBNI, USING UNSIGNED ZONED DATA 
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10970 
10971 
10972 037062 CALL CLRDSB 

10973 037062 004737 055520 PC,CLRDSB 
10974 

10975 ; 

10976 ; LOAD DSBUF 1 

10977 ; 

10978 

10979 := MADD1+2 ; SOURCE 

10980 037066 012700 MO #ADD1+2,RO 
10981 7 := TADDI CLR.BY #10000 :# OF BYTES TO XFER ani i 


10982 013701 T 
042701 #10000,R1 
#DSBUF 1 DESTINATION 


012702 ADSBUF 1 ,R2 
<1$: MOVB (RO)+, (R2)+> 
112022 3 MOVB (RO)+, 
< SOB R1, 1$> 
037110 077102 s08 R1, 


1383! 


LOAD DSBUF 2 


037112 := MADDIA+2 
012700 #ADD1A+2,RO 
:= TADDI+4 CLR.BY #10000 
013701 MOV TADD1+4,R1 
042701 010000 #10000,R1 


012702 #DSBUF 2 ,R2 
: MOVB (RO)+, (R2)+> 
112022 : MOVB (RO)+, 
SOB R1, 2$> 
077102 $08 R1, 


3598885 


$383 


LOAD DS.EXP 


SSSSSs8ses 


LET RO := MADD1C+2 

012700 #ADD1C+2.RO 
LET R1 := TADDI+10 CLR.BY #10000 

013701 MOV TADD1+10,R1 

042701 #10000,R1 
LET R2 := #DS.EXP 

012702 #0S.EXP.R2 
INLINE : (RO)+, (R2)> 

— INLINE #60. (2) .- ee) ee 

’ +> 
152722 BISB #60, 


INL INE R1, 3$> 
077104 S0B RI, 


CALL CLRREG ZENSURE RO-R5 ARE CLR 


Sssssssssss 
OBNAARWN=S 


oo 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Ne Le ee ee ee eee 


SSERSS 
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037166 004737 055330 


037172 
037172 076151 


037174 064052 

037176 064056 

037200 

064062 

037202 013737 177776 
042737 177760 


037216 005737 000516 
001402 


037224 
O57568 004737 056274 


OOOCOOCOOCOOCOCOO 
BORO RARAR RUS 
eeccecs 
NN Nw 
NoveNs= 
orn o 


& 
oO 
oO 
S 
Nm 
= 
oO 


ee ee ee ee ere 
So 
S 
~m 
— 
o 


RRR 
wn 
& 
ny 


sgaaeEtrE 
oo 
$s 


a 
me 
“a 
ee 
gg 
¢ 


037244 
037244 004737 056274 


037264 004737 056274 
037270 


il Reelin, eee eee en en en ee ee ee ee ee ee ee ee eee eee 
SooQoooo°o°o0o 
BSS SSSSSSSERERERESERSSSS 
° 
Ss 
y 
3 


et et A 2 2 SP Sh oS 2 9 a SS a 


— 


037270 
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000516 
000516 


INLINE <SUBNI> 

INLINE <.WORD TADDI> 

INLINE <.WORD TADDI+4> 
INLINE <.WORD TADDI+10> 
LET CC := PSW 

LET CC := CC CLR.BY #177760 
IF CC NE #0 THEN 


CALL ERROR 

ENDIF 

Z¢ 

: ENSURE GPR'S STILL ZERO 


IF RO NE #0 OR R1 NE #0 OR R2 NE #0 THEN 


CALL ERROR 
ENDIF 


IF R3 NE #0 OR R4 NE #0 OR RS NE #0 THEN 


; CHECK RESULTS 


LET RO := #DS.DST 


$51500: 


$51501: 


$51502: 


$51503: 


$51504: 


JSR PC,CLRREG 


SUBNI 

«WORD TADDI 

«WORD TADDI+4 
«WORD TADDI+10 
MOV PSw,CC 
BIC #177760,CC 


TST CC 

BEQ $51500 
JSR PC ERROR 
TST RO 

BNE $51501 
TST R1 

BNE $51501 
TST R 

BEQ $51502 


JSR PC ERROR 


TST R3 

BNE $51503 
TST R 

BNE $51503 
TST R5 

SEQ $51504 


JSR PC ,ERROR 


SEQ 0229 
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11088 7270 012700 062474 MOV #0S.DST,RO 
11 7274 LET R1 := #DS.EXP ZEXPECTED DATA 

11084 037274 012701 062536 MOV #DS.EXP,R1 
11085 0 LET ERRFLG := #0 

11086 037 005037 000454 CLR ERRFLG 
11087 037 WHILE RO NE #DS.DST+40 AND ERRFLG EQ #0 DO 

11088 037304 $51505: 

11089 037304 020027 062534 CMP RO, #DS.DST+40 
11090 037310 001410 BEQ $51506 
11091 037312 005737 000454 TST ERRFLG 
11092 037316 001005 BNE $51506 
11093 037320 IFB (RO)+ NE (R1)* THEN 

11094 037320 122021 CMPB ss (RO) +, (R11) + 
11095 037322 001402 BEO $51507 
11096 037324 CALL ERROR 

11097 037324 004737 056274 JSR PC ERROR 
11098 037330 ENDIF 

11099 037330 $51507: 

11100 037330 ENDDO 

11101 037330 000765 BR $51505 
11102 037332 $51506: 

11103 

11104 
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-SBTTL CMPN 


SERA EREEKREAEEARERKEAEEEEREREEEREEEEEEEKEEE KEE 


CMPN TEST 
Iii iii iii iiiitiiiiviiiitiitiiiiiitiiiititit 
INLINE <XCMPN:> 
INLINE <SCOPE> 
000004 
LET STIMES := #20 D0 20 ITERATIONS 
012737 #20,$TIMES 
LET COUNT := TCMP GET TEST COUNT 
013737 TCMP , COUNT 


MOV 
LET TSTCAS := #TCMP+2 sPOINT TO FIRST TEST CASE 
012737 MOV #TCMP+2, TSTCAS 


INLINE <$5052:> 
CALL CLRDSB 
LET CC.EXP := #0 
LET SIGNO := 40 
LET DATTYP := #0 


$5052: 

JSR PC,CLRDSB 
CLR CC.EXP 
CLR S1GNO 

CLR DATTYP 


i+ 
: GET SOURCE DESCRIPTORS FROM TABLE 


037376 LET RO := TSTCAS 
037376 013700 TSTCAS ,RO 
37. LET DATAOO := (RO)+ 7SRC1 LENGTH 

012037 (RO) + ,DATAOO 
LET DATAO1 := (RO)+ 7SRC1 POINTER 

012037 (RO) +,DATAO1 
LET DATAO2 := (RO)+ 3SRC2 LENGTH 

012037 (RO) + ,DATAO2 
LET DATAOS := (RO) :SRC2 POINTER 

037416 011037 (RO) ,DATAOS 


i+ 
; LOAD SRC1 AND SRC2 INTO DSBUF1 AND DSBUF 2. 


03742 LET R2 := DATAO1 + #2 GET SRC1 ADDRESS 

aE a MOV DATAO1 .R2 

06270, #2 Re 
LET R3 := #DSBUF1 

012703 #DSBUF 1 .R3 
LET DSTMPO :B= (R2) :SAVE SRC1 MSD 

111237 (R2) .DSTMPO 
DECR R1 FROM DATAOO TO #1 By #1 
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037442 013701 000560 DATAOO,R1 
000401 $51511 BR $51510° 


005301 R1 


$51510: 
020127 R1,41 
002402 $51512 
LET (R3)+ :B= (R2)+ 
112223 (R2)+, (R3)+ 
ENDDEC 
000772 $51511 


$51512: 
IF DATAOO HI #0 THEN 
005737 


DATAOO 
101402 $51513 
LET DSTMP1 :B= -(R2) ;SAVE SRC1 LSD 
114237 ~(R2) ,DSTMP1 


ENDIF 
$51513: 
LET R2 := DATAOS + #2 :GET SRC2 ADDRESS 
013702 DATAO3.R2 
062702 000002 #2,R2 
LET R3 := #DSBUF2 
012703 #DSBUF 2 ,R3 
LET DSTMP2 :B= (R2) ;SAVE SRC2 MSD 
111237 (R2) ,DSTMP2 
DECR R1 FROM DATAO2 TO #1 BY #1 . 
013701 DATAO2,R1 
000401 


$51514 
$51515: 
005301 R1 


$51514: 
020127 R1,41 
002402 $51516 
LET (R3)+ :B= (R2)+ 
112223 (R2)+, (R3)+ 
ENDDEC 
000772 BR $51515 
$51516: 
LET DSTMP3 :B= -(R2) :SAVE SRC2 LSD 
114237 -(R2) ,DSTMP3 


ed ad ad od et td ts on a ot ts 2 ss ho SS as ss es SI ts 2 SS 2 2 st ss 
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i+ 
; COMPARE SRC1 AND SRC2, AND SET N AND Z BITS 
: IN CC.EXP ACCORDINGLY. 


IF DATAOO EQ #0 AND DATAO2 EQ #0 THEN :SRC1 LENGTH AND SRC2 LENGTH = 0 
TST DATAOO 
BNE $51517 
TST DATAO 
BNE $5151 
BIS #ZBIT,CC.EXP 


BR $51520 


SauRoRas 


LET CC.EXP := CC.EXP SET.BY #ZBIT 
ELSE 


11 
1 
11 
11 
11 
11 
11 
11 
11 
11 
11 
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11 
11 
11 
11 
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11 
11 
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11 
11 
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CJKDGA-P11 12-MAR-80 13:37 CMPN SEQ 0233 
11217 037570 $51517: 
11218 037570 IF DATAOO EQ #0 AND @DATAO3 EQ #0 THEN ;SRC1 LENGTH = 0 AND SRC2 SIGN IS + 
11219 037570 005737 000560 TST DATAOO 
11220 037574 001007 BNE $51521 
11221 037576 005777 140764 TST @DATA03 
11222 037602 001004 BNE $51521 
11223 037604 LET CC.EXP := CC.EXP SET.BY #NBIT 
11224 037604 052737 000010 000520 BIS ANBIT,CC.EXP 
11225 037612 ELSE 
11226 037612 000412 BR $51522 
11227 037614 $51521: 
11228 037614 IF DATAO2 EQ #0 AND a@DATAO1 EQ #-1 THEN zSRC2 LENGTH = 0 & SRC1 SIGN IS - 
11229 037614 005737 000564 TST DATAO2 
11230 037620 001007 BNE $51523 
11231 037622 027727 140734 177777 CMP @DATAO1 ,#=1 
11232 037630 001003 BNE $515235 
11233 037632 LET CC.EXP := CC.EXP SET.BY ANBIT 
11234 037632 052737 000010 000520 BIS #NBIT,CC.EXP 
11235 037640 ENDIF 
11236 037640 $51523: 
11237 037640 ENDIF 
11238 037640 $51522: 
11239 037640 ENDIF 
11240 037640 $51520: 
11241 037640 IF DATAOO NE #0 AND DATAO2 NE 40 THEN :SRC1 LENGTH AND SRC2 va >0 
11242 037640 005737 000560 TST TAOO 
11243 037644 001520 BEQ $51 524 
11244 037 005737 000564 TST 
11245 037652 001515 BEQ $51 524 
11246 037654 IF @DATAQO1 NE @DATAO3 THEN :SRC1 SIGN AND SRC2 SIGN ARE DIFFERENT 
11247 037654 027777 140702 140704 CMP @DATA01 .@DATAOS 
11248 037662 001410 BEQ $51525 
11249 037664 IF @DATAQ1 EQ #-1 THEN zSRC1 SIGN IS - 
11250 037664 027727 140672 177777 CMP @DATAO1 ,#~1 
11251 037672 001003 BNE $51526 
11252 037674 LET CC.EXP := CC.EXP SET.BY #NBIT 
11253 037674 052737 000010 000520 BIS ANBIT.CC.EXP 
11254 037702 ENDIF 
11255 037702 $51526: 
11256 037702 ELSE :SRC1 SIGN AND SRC2 SIGN ARE EQUAL 
11257 037702 000501 $51527 
11258 0. $51525: 
11259 037704 LET SIGNO := @DATAO1 zSAVE THE COMMON SIGN 
11260 037704 017737 140652 000446 MOV @DATAO1 .SIGNO 
11261 037712 IF DATAOO LO DATAO2 AND SIGNO EQ #40 THEN ;SRC1 LENGTH < SRC2 LENGTH No SIGNS 
11608 037712 023737 000560 000564 CMP DATAOO .DATAO2 
11263 037720 103007 BHIS $51530 
11264 037722 005737 000446 TST S1GNO 
11265 037726 001004 BNE $51530 
11266 037730 LET CC.EXP := CC.EXP SET.BY #NBIT 
11267 037730 052737 000010 000520 BIS #NBIT.CC.EXP 
11268 037736 ELSE 
11269 037736 000413 BR $51531 
11270 037740 $515 
11271 037740 1F DATAOO HI DATAO2 AND SIGNO EQ #-1 THEN 7SRC1 “LENGTH > SRC2 LENGTH AND 
11272 037740 023737 000560 000564 CMP DATAOO .DATAO2 
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11273 037746 101407 BLOS $51532 
11274 037750 023727 000446 177777 CMP SIGNO,#=1 
11275 037756 001003 | $51532 
11276 037760 LET CC.EXP := CC.EXP SET.BY ANBIT 
11277 037760 052737 000010 000520 BIS ANBIT,CC.EXP 
11278 037766 ENDIF 
11279 037766 $51532: 
11280 037766 ENDIF 
11281 037766 $51531: 
11282 3771 IF DATAOO EQ DATAO2 THEN :SRC1 LENGTH AND SRC2 LENGTH ARE EQUAL 
11283 037766 023737 000560 000564 CMP DATAOO, DATAOZ2 
11284 037774 001044 BNE $51533 
11285 
11286 5* 
11287 ; COMPARE SRC1 AND SRC2 BYTE BY BYTE 
11589 a 
11290 037776 LET RO := DATAOO ;SRC BUFFER LENGTH 
11291 037776 013700 000560 MOV DATAOO, RO 
11292 040002 LET R1 := #DSBUF1 ;SRC1 BUFFER 
11293 040002 012701 062370 MOV #DSBUF1,R1 
11294 040006 LET R2 := #DSBUF2 :SRC2 BUFFER 
11295 040006 012702 062432 MOV #DSBUF 2,R2 
1129 040012 WHILEB RO NE #0 AND (R1)+* EQ (R2)+ DO 
11297 040012 $51534: 
11298 040012 105700 TSTB = RO 
11299 040014 001404 BEQ $51535 
11300 040016 022122 CMP (R1)+, (R2)+ 
11301 040020 001002 BNE $51535 
11302 040022 LET RO := RO - #1 :DECREMENT COUNTER 
11303 040022 005300 DEC RO 
11304 040024 ENDDO 
11305 040024 000772 BR $51534 
11306 040026 $51535: 
11307 040026 IFB -(R1) NE -(R2) THEN :SOURCES WERE NOT = 
11308 040026 124142 CMPB ss =(R1) , = (R2) 
11309 040030 001423 BEQ $51536 
11310 040032 IFB (R1) LO (R2) AND SIGNO EQ #0 THEN 
11311 040032 121112 CMPB —s. (R11), (R2) 
11312 34 103007 BHIS $51537 
11313 040036 005737 000446 TST SIGNO 
11314 2 001004 BNE $51537 
11315 040044 LET CC.EXP := CC.EXP SET.BY #NBIT 
11316 040044 052737 000010 000520 BIS #NBIT.CC.EXP 
11317 040052 ELSE 
11318 040052 000411 BR $51540 
11319 040054 $51537: 
11320 040054 IFB (R1) HI (R2) AND SIGNO EQ #-1 THEN 
11321 040054 121112 CMPB ss (RX), (2) 
1132 56 101407 BLOS $5 
11323 040060 023727 000646 177777 CMP SIGNO,#=1 
11324 040066 001003 BNE $51541 
11325 040070 LET CC.EXP := CC.EXP SET.BY #NBIT 
11326 040070 052737 000010 000520 BIS #NBIT.CC.EXP 
11327 040076 ENDIF 
11328 040076 $51541: 
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ENDIF 
$51540: 
ELSE ; SOURCES WERE EQUAL 


$51536: 
LET CC.EXP := CC.EXP SET.BY #ZBIT 
052737 000004 000520 weir BIS #ZBIT,CC.EXP 
$51542: 
ENDIF 
$51533: 
ENDIF 
$51527: 
ENDIF 
$51524: 


W 
= 


BR $51542 


SeSSaateueaaS 


KEKE 


LILA ALELE EL 


TYPE AND WILL 
CURRENTLY BEING TESTED. 


VIMO) 


;REPEAT 3SRC1 LOOP 
INLINE <$5201:> 


IF DATTYP EQ #10000 THEN SKIP UNSIGNED ZONED 
023727 DATTYP,410000 
001003 $51543 
LET DATTYP := DATTYP + #10000 
062737 #10000, DATTYP 


ENDIF 
$51543: 
iff DSO] <Be PSTD te cect sp 
113737 000552 aad la aoa y DSTMPO,DSBUF 1 
:= -1 + 
012700 062367 #DSBUF 1-1,RO 
santas manatee LET (RO) :B= DSTMP1 SRC1 LSD caiitanactns 
:B= 5 L 
113710 000553 MO DSTMP1, (RO) 
SANT EES HEY ITO SAT. ACONING 1 BH ep 
juan enn 
005737 000462 TST DATTYP 


— LET RO := #DSBUF1-1 + DATAOO = a 
012700 062367 ag #DSBUF 1-1,RO 
sation! orgie! IF @DATAO1 EQ #0 THEN SIGN IS pu ae 

: + 
005777 140372 7 @DATAO1 
_— LET (RO) :B= (RO) SET.BY #60 we 
152710 000060 ne : #60, (RO) 


BNI AAA UIA AN 
wi, 
swoon 


SESSFERES 
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ELSE :SIGN IS - 
000402 BR $51546 


$51545: 
LET (RO) :B= (RO) SET.BY #160 
152710 BISB #160, (RO) 


ENDIF 
$51546: 
LET RO := #DSBUF 1-1 


MOV 
LET (RO) :B= #0 RESTORE AFTER LEADING —" 
ENDIF 


$51544: 
IF DATTYP EQ #20000 THEN 3*** TRAILING OVERPUNCH *** 
CMP ey 


SSSSSESe 


012700 
105010 


#DSBUF 1-1 ,RO 
(RO) 


WUAW 
aE 


023727 000462 
001021 BNE 
IF DATAOO HI #0 THEN 
005737 000560 TST DATAOO 
101416 BLOS $51550 
012700 062367 LET RO := #DSBUF1-1 + DATAOO _ menst<t 20 
Vv pas. 
063700 000560 ADD DATAOO,RO 
005777 140316 IF @DATAO1 EQ #0 THEN ;SIGN IS + ret enatagn 
001002 BNE 


$51551 
LET R1 := #0 
005001 R1 
ELSE 
000402 BR $51552 


$51551: 
LET R1 := #10. 
012701 #10.,R1 


ENDIF 
$51552: 
LET R1 :B= R1 SET.BY (RO) FORM TABLE OFFSET 
on LET (RO) :B= OVPNCH(R1) PUT IN SIGN/DIGIT " es 
116110 055254 oa 5 MO OVPNCH(R1), (RO) 


ENDIF 
$51550: 


ENDIF 
$51547: 
IF DATTYP EQ #30000 THEN :*** LEADING OVERPUNCH *** 
023727 CMP DATTYP #30000 
001017 $51553 


IF DATAOO HI #0 THEN 
TST etter 


005737 
101414 ot coed BLOS 554 

L 3s SBUF 
_— IF @DATAQ1 EQ #0 THEN SIGN IS waeeets: 

° + 

005777 140250 : ' @DATAO1 
001002 ior elas os BNE $51555 
005001 se RI 

ELSE 


WW 
Bein AWA GWRBVOVPNNND SS SASS SASSSSSSSOSS SSCs 
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BR $51556 
$51555: 


MOV #10.,R1 


LET R1 := #10. 
ENDIF 
$51556: 
LET R1 :B= R1 SET.BY (RO) ;FORM TABLE OFFSET 


B1SB (RO) ,R1 
LET (RO) :B= OVPNCH(R1) :PUT IN SIGN/DIGIT 
116110 055254 MOVB OVPNCH(R1) , (RO) 


ENDIF 
$51554: 
ENDIF 


$51553: 
IF DATTYP EQ #40000 THEN z*** TRAILING SEPARATE *** 
023727 CMP DATTYP #40000 
001014 BNE $51557 
LET RO := #DSBUF1 + DATAOO 
012700 


#DSBUF 1 ,RO 

063700 000560 DATAOO RO 
IF @DATAO1 EQ #0 THEN :SIGN IS + 
005777 @DATAO1 
001003 BNE $51560 
LET (RO) :B= #53 

112710 no sre 18 #53, (RO) 
000402 BR $51561 


$51560: 
LET (RO) :B= 
112710 MOVB #55, (RO) 


ENDIF 
ENDIF $51561: 


$51557: 
IF DATTYP EQ #50000 THEN z*** LEADING SEPARATE *** 
023727 000462 CMP DATTYP 450000 
BNE $51562 


ae ET RO #DSBUF 1-1 

L = = 
012700 062367 a odes 
005777 140150 IF @DATAO1 EQ #0 THEN : SIGN Is + a 
001003 @DATAO 


0000 LET (RO) :B= #53 $51563 
sais . ELSE aa sie IS #53, (RO) 
.: ‘ BR $51564 


LET (RO) :B= #55 ahieeas 
112710 ; MOVB #55, (RO) 


ENDIF 
LET RO := #DSBUF1 + DATAQO aiiumaes 
012700 MOV 
063700 ADD —sODA 
LET (RO) :B= #0 sRESTORE AFTER TRAILING 
CLRB (RO) 


ESS 


RALUNLS Soe 


BERKEL REESE 
viv 
on 


Ww 
Oo 


460 
461 
ces 
464 
465 
466 
467 
468 
469 
470 
py 
“78 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
Bed 
485 
486 
487 
488 
489 
490 
491 
rp 
49 
1494 
495 
4% 


0404 
0404 
0404 
0404 
0404 
0404 
0404 
0404 
0404 
Bebe 
0404 
0404 
0404 
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SEQ 0238 
11497 040440 ENDIF 
11498 040440 $51562: 
11499 040440 LET TEMP1 := #0 ZCLEAR SRC2 DATA TYPE 
11500 040440 005037 000476 CLR TEMP1 
11501 s REPEAT :SRC2 LOOP 
11502 040444 INLINE <$5202:> 
11503 040444 $5202 
11504 040444 IF TEMP1 EQ #10000 THEN ;SKIP UNSIGNED ZONED 
11505 040444 023727 000476 010000 CMP TEMP1 #10000 
11506 040452 001003 BNE $51565 
11507 040454 LET TEMP1 := TEMP1 + #10000 
11508 040454 062737 010000 000476 ADD #10000, TEMP1 
11509 040462 ENDIF 
11510 040462 $51565: 
11511 ;RESTORE THE MSD AND LSD OF SRC2 
11512 040462 LET DSBUF2 :B= DSTMP2 :SRC2 MSD 
11513 040462 113737 000554 062432 MOVB = DSTMP2, DSBUF2 
11514 040470 LET RO := #DSBUF2=1 + DATAO2 
11515 040470 012700 062431 MOV #DSBUF 2-1,RO 
11516 040474 063700 000564 ADD DATAO2,RO 
11517 040500 LET (RO) :B= DSTMP3 zSRC2 LSD 
11518 040500 113710 000555 MOVB = DSTMP3, (RO) 
11519 ;PUT THE PROPER SIGN INTO SRC2, ACCORDING TO TEMP1 
11520 040504 IF TEMP? EQ #0 THEN y*** SIGNED ZONED *#* 
11521 040504 005737 000476 TST TEMP1 
11522 040510 00°017 BNE $51566 
11523 040512 LET RO := #DSBUF2-1 + DATAO2 
11524 040512 012700 062431 MOV #DSBUF 2=1,RO 
11525 040516 063700 000564 ADD DATAO2,RO 
11526 040522 IF @DATAO3 EQ #0 THEN :SIGN IS + 
11527 040522 005777 140040 TST @DATAO3 
11528 040526 001003 BNE $51567 
11529 040530 LET (RO) :B= (RO) SET.RY #60 
11530 040530 152710 000060 BISB  #60,(RO) 
11531 040534 ELSE :SIGN IS - 
11532 040534 000402 BR $51570 
11533 040536 $51567: 
11534 040536 LET (RO) :B= (RO) SET.BY #160 
11535 040536 152710 000160 BISB #160. (RO) 
11536 040542 ENDIF 
11537 040542 $51570: 
11538 040542 LET RO := #DSBUF2-1 
11539 040542 012700 062431 MOV #DSBUF 2-1 RO 
11540 040546 LET (RO) :B= 40 ZRESTORE AFTER LEADING SEPARATE 
11541 105010 CLRB —_ CRO) 
1134@ 040550 ENDIF 
11543 040550 $51566: 
11544 040550 IF TEMP1 EQ #20000 THEN y*** TRAILING OVERPUNCH *** 
11545 040550 023727 000476 020000 CMP TEMP1 , #20000 
11546 040556 001016 BNE $51571 
11547 040560 LET RO := #DSBUF2=1 + DATAO2 
11548 040560 012700 062431 MOV #DSBUF 2-1 RO 
11549 040564 063700 000564 ADD DATAO2, RO 
11550 040570 IF @DATAO3 EQ #0 THEN :SIGN IS + 
11551 040570 005777 137772 TST @DATAO3 
11552 040574 001002 BNE $51572 
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11553 040576 LET R1 := #0 
11554 040576 005001 CLR R1 
11555 040600 ELSE :SIGN IS - 
11556 040600 000402 BR $51573 
11557 040602 $51572: 
11558 040602 LET R1 := #10. 
11559 040602 012701 000012 MOV #10.,R1 
11560 040606 ENDIF 
11561 040606 $51573: 
11562 040606 LET R1 :B= R1 SET.BY (RO) ;FORM TABLE OFFSET 
11563 040606 151001 BISB = (RO),R1 
11564 040610 LET (RO) :B= OVPNCH(R1) ;PUT IN “!IGN/DIGIT 
11565 040610 116110 055254 MOVB  OVPNCH(R1), (ROD 
11566 040614 ENDIF 
11567 040614 $51571: 
11568 040614 IF TEMP1 EQ #30000 THEN :*** LEADING OVERPUNCH *** 
11569 040614 023727 000476 030000 CMP TEMP1 , #30000 
11570 040622 001014 BNE $51574 
11571 040624 LET RO := #DSBUF2 
11572 040624 012700 062432 MOV #DSBUF 2,RO 
11573 040630 IF @DATAO3 EQ #0 THEN :SIGN IS + 
11574 040630 005777 137732 TST @DATAO3 
11575 040634 001002 BNE $51575 
11576 LET R1 := #0 
11577 040636 005001 CLR R1 
11578 040640 ELSE :SIGN IS - 
11579 040640 000402 BR $51576 
11580 040642 $51575: 
11581 040642 LET R1 := #10. 
11582 040642 012701 000012 MOV #10.,R1 
11583 040646 ENDIF 
11584 040646 $51576: 
11585 040646 LET R1 :B= R1 SET.BY (RO) sFORM TABLE OFFSET 
11586 040646 151001 BISB = (RO),R1 
11587 040650 LET (RO) :B= OVPNCH(R1) :PUT IN SIGN/DIGIT 
11588 040650 116110 055254 MOVB = OVPNCH(R1), (RO) 
11589 040654 ENDIF 
11590 040654 $51574: 
11591 040654 IF TEMP1 EQ #40000 THEN 7*** TRAILING SEPARATE *** 
11592 040654 023727 000476 040000 CMP TEMP1 , #40000 
11593 040662 001014 BNE $51577 
11594 060664 LET RO := #DSBUF2 + DATAOZ 
11595 040664 012700 062432 MOV #DSBUF 2 ,RO 
115% 063700 000564 ADD DATAO2, RO 
11597 040674 IF @DATAO3 EQ #0 THEN 7SIGN IS + 
11598 040674 005777 137666 TST @DATAO3 
11599 040700 001003 BNE $51600 
11600 040702 LET (RO) :B= #53 
1160: 040702 112710 000053 MOVB #53, (RO) 
11608 240706 ELSE :SIGN IS = 
1160 u704% 000402 BR $51601 
11604 040710 $51600: 
11605 040710 LET (RO) :B= #55 
11606 040710 112710 000055 MOVB #55, (RO) 
11607 040714 ENDIF 
11608 040714 $51601: 
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ENDIF 


$51577: 
IF TEMP1 EQ #50000 THEN :*** LEADING SEPARATE *** 
023727 000476 050000 CMP TEMP1 , #50000 
001017 $51602 
LET RO := #DSBUF2=1 

012700 062431 ADSBUF 2=1,RO 
eave’ umn IF @DATAO3 EQ #0 THEN :SIGN IS + ae 
007003 


$51603 
LET (RO) :B= #53 
112710 000053 a eta #53, (RO) 
000402 : BR $51604 


$51603: 
: LET (RO) :B= #55 
112710 i #55, (RO) 


ENDIF 
LET RO := #DSBUF2 + DATAO2 ite 
012700 i MOV #DSBUF 2 RO 
063700 000 ADD DATAO2.RO 
LET (RO) :B= 40 sRESTORE AFTER TRAILING SEPARATE 
105010 CLRB (RO) 


ENDIF 
$51602: 


a 
ant ant an anf an and al ad aol ad 
VMISEWN—O OONAUSWN—O 


ss 


3° 
; LOAD THE GPR'S AND DO THE CMPN INSTRUCTION 


LET RO := DATTYP SET.BY DATAOO ;SRC1.DSCR 
013700 000462 V DATTYP,RO 
053700 DATAOO,RO 
LET R1 := #DSBUF1 : 
012701 MOV #DSBUF 1,R1 
ne LET R2 := TEMP1 SET.BY DATAO2 7SRC2.DSCR ii lal ah 
053702 DATAO2 ,R2 
LET R3 := #DSBUF2 , * 


012703 #DSBUF 2 ,.R3 
LET R4 : 
005004 eT aS R4 
L : 
nami INLINE <CMPN> = 
< 
076052 


SESS PESTS SECS RACES 


BSE 


RRRRARRARAO 
SOVRARW— 


i+ 
; CHECK THE RESULTS 


LET CC : 
013737 177776 000516 ey ef ce Cun.ey o177760 PSwW.CC 
L : LR.BY # 
042737 177760 000516 #177760,CC 
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g 


CREE R a a sSR AN SSESE 


RRRR KRRRRRRRRRFRRRKRRRRKRRRKRRRRRRKKKKRRKRKKKKERKERKRKKKKK 


“4 2 a 8s 9) = 9) 9s Sh as ss Sh ss SS) Ss - 4 Ss ss Ss Ss SS ss 9 ss Sh) 3 SS) Ss SH) Ss Ss) 3) SS FI) Ss ss ss Ss ss SS ss SS 


ADAAAAAAAOOO 
SRSRASS 


Syd 39 ad dd dd Ad ad ad ad ad ad ad ad ad ad ad aR RRO ORO ARARAARSARARAAAOAROOOAPAROPR 
SSSAIBIAAASS esses 3 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SFRRESESPLRSSSSER ESE 


NSdd 


ooooooo 
er ia) 


NN 


SERRE BESSRRNBBBVEASSSssRRVSsses 


12=MAR-80 


023737 
001402 
004737 


005700 
001402 


004737 


005701 
001402 
004737 


005702 
001402 


004737 


13:3 


000516 


056274 


MACY11 30A(1052) 14-MAR=80 
CMPN 


000520 


INL INE 


IF CC NE 


CALL 
ENDIF 
IF RO NE 


CALL 
ENDIF 
IF R1 NE 


CALL 
ENDIF 
IF R2 NE 


CALL 
ENDIF 
IF R3 NE 


CALL 
ENDIF 
IF R4& NE 


CALL 
ENDIF 
IF RS NE 


CALL 
ENDIF 


LET TEMP1 
“UNTIL TEMP1 EO 
iF TEMP1 NE #50008 SHEN 


<JMP $5202> 


J. 3 
08:04 PAGE 225 


CC.EXP THEN 


ERROR 


#0 THEN 


ERROR 


#0 THEN 


ERROR 


#0 THEN 


ERROR 


#0 THEN 


ERROR 


#0 THEN 


ERROR 


#0 THEN 


ERROR 


:= TEMP1 + #10000 


SEQ 0241 


CC,CC.EXP 
$51605 


PC ,ERROR 


RO 
$51606 


PC ERROR 


R1 
$51607 
PC ,ERROR 


Re 

$51610 

PC,ERROR 
$51610: 


R3 

$51611 

PC ERROR 
$51611: 


R4 

$51612 

PC ERROR 
$51612: 


R5 
BEQ $51613 
JSR PC ERROR 


$51613: 
;UPDATE SRC2 TO NEXT DATA TYPE 
ADD #10000. TEMP1 


“MP Tenet #60000 
BEQ $51614 
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000137 040444 JMP $5202 
ENDIF 


$51614: 
LET DATTYP := DATTYP + #10000 ;UPDATE SRC1 TO NEXT DATA TYPE 
062737 010000 000462 ADD #10000 ,DATTYP 
;UNTIL_DATTYP EQ #60000 
iF DATTYP NE #60000 THEN 
023727 000462 060000 CMP DATTYP ,4#60000 
001402 BEQ $51615 
INLINE <JMP $5201> 
000137 040106 JMP $5201 


ENDIF 
$51615: 


SEQ 0242 


— 
— 
“I 
— 
a 


——s as SS YY SSS) 
RX RRSSKSS 


VIVIVIV & 
rororone 


LET TSTCAS := TSTCAS + #10 
062737 000010 000542 ADD #10, TSTCAS 
LET COUNT := COUNT = #1 
005337 000466 DEC COUNT 
sUNTIL COUNT EQ #0 THEN 
IF COUNT NE #0 THEN 
005737 000466 TST COUNT 
001402 BEQ $51616 
INLINE <JMP $5052> 
000137 037356 JMP $5052 


ENDIF 
$51616: 


SAAS Aes IA URNS 


® 


rr 
RRRRRKFR KRRR KRRKKEK REPRE - 


2 Ss 1 3 on oo) >  ' ss I I 


BURRAeR RS 


NW 
CONS 


i+ 
; DO ONE INLINE CASE =~ CMPNI. USE UNSIGNED ZONED DATA TYPE. 


LET RO := #1 

LET R1 := #1 

LET R2 := #1 

LET R3 := #1 

LET R& := #1 

LET RS := #1 

INLINE <CMPNI> 
061366 INLINE <.WORD TCMPNI> 
043372 ca a ebteritey TCMPNI ++ 
ee ee LET CC := CC CLR.BY #177760 — 
042737 177760 000516 BIC #177760,CC 


IF CC NE #4 THEN 
023727 000516 000004 CMP CC a4 


012700 177777 
012701 177777 
012702 177777 
012703 177777 
012704 177777 
012705 177777 
076152 


#-1,RO 
#-1,R1 
#~1,R2 
#~1,R3 
#~1 RG 
#-1,R5 


PRESS RNS 


g2gege3 


oo 


Mmr 


TCMPN! 


58 


nc eh el ee ee kk me a ed a nk nd ed od 8 nd od = 
Ce Nee ee ed ee ee Ee Le ee LL Lee ee LLL eee eee eee 
| : 


SINISIISSLFSSATAS IIIT RAIS 


RREKREREERERRLELERERERE 


for’ 


ae 
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001402 $51617 
CALL ERROR 
056274 PC ERROR 


ENDIF 
$51617: 
IF RO NE #1 OR R1 NE #=1 OR R2 NE #1 THEN 


: 


#333 


177777 
177777 
177777 


ea eee 
— 


CPS TERRE RSC it fey sot 


$51620: 
CALL ERROR 


ENDIF 
IF R3 NE #-1 OR R4 NE #-1 OR RS NE #=-1 THEN 


056274 
$51621: 
177777 
177777 
177777 


CALL ERROR 
ENDIF 
INLINE <JMP XASHN> 


056274 


EREKEKRRRRELLKERERRRRELLLERRELE 
RERSSUR KOR S RRR RESEONSERR RRS SSS 


041404 


3+ 
: INLINE TEST CASE 


TCMPNI : ;SRC1 DATA TYPE = UNSIGNED ZONED, LENGTH 
;SRC2 DATA TYPE = UNSIGNED ZONED, LENGTH 


00 09 Go 09 Co Co Co Co 
et ot a St 
WONOUSWN—o 
g soy 
2 3x3 


003 CMPNI1: .BYTE 001,002,003,004,065 DECIMAL STRING = 12345 
-EVEN 


RE ERE 


= 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
7 
1 
1 
1 
1 
1 


ee ee ed a ed ed ed od ed 


RSS 
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» SBTTL 


Pa hhelalatahehahahahahelehelahelahaheheteteheteiatatehshshahehehehahehahahshsiehahahehahehehahelehshelehahahehelalatelshahehel 


; ASHN TEST 


° 
TTI Ti Titi iii iii iii iii iii ii itt, 
INLINE <XASHN:> 


XASHN: 

INLINE <SCOPE> 

000004 SCOPE 
LET STIMES := #20 ;D0 20 ITERATIONS 

012737 000020 000404 MOV #20, $TIMES 
LET COUNT := TASH ;GET TEST COUNT 

013737 063044 000466 TASH, COUNT 
LET TSTCAS := #TASH+2 ;POINT TO FIRST TEST CASE 

012737 063046 000542 #TASH+2, TSTCAS 
LET SIGNO := 40 

005037 000446 SIGNO 


;REPEAT 

INLINE <$5056:> 
LET CC.EXP := #0 
LET DATTYP := #0 


Mi 
wW 


EERE SSNNERRRERRR 


CC.EXP 
DATTYP 


£ES55 SSSSLLSSSSSS 


RRREREK KRRRRRKRKKKK 
o 


SRSELAEESS REE 


ae 
™ 
5 


3+ 
; GET TEST DATA FROM TABLE 


LET RO := TSTCAS 

013700 TSTCAS ,RO 
LET DATAOO := (RO)+ :SRC.LENGTH 

012037 (RO) + ,DATAOO 
LET DATAO1 := (RO)+ :DST.LENGTH 

012037 (RO) +,DATAO1 
LET DATAO2 := (RO) ;SHIFT.DSCR 

011037 (RO) ,DATAO2 
CALL CLRDSB 

004737 PC, CLRDSB 


ggaanaeae 
SRRRRRREE 
RRSERRAGER 


if 
3 PUT TEST STRING INTO DSBUF1 WITHOUT THE SIGN 


LET RO := DATAOO SRC.LENGTH 

013700 DATAOO. RO 

nani LET R1 := #DSBUFI SRC. ADDRESS Somat 
WHILE RO NE #0 DO ; 


SSSESSTREREE 


00 G0 00.00 G0 Oo 
ASAIN ISS 


Bo 


005700 89 

001404 BE $51625 
LET (R1)+ :B= #4 

112721 #4, (R1)+ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 


kd kd ed a td kt th ot a ot 0 ot So oo ot os oo tS a 


ERRRERRERE 


RENSSSaeeS 
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oo 
3 


LET RO := RO = #1 
005300 RO 


ENDDO 
$51624 
$51625: 


3+ 
; LOAD DS.EXP AND CC.EXP WITH EXPECTED RESULTS. 


GET SHIFT COUNT MAGNITUDE AND PUT IT INTO TEMPO 


LET TEMPO := DATAO2 

013737 DATAO2, TEMPO 
IF #BITO7 SETIN TEMPO THEN NEGATIVE SHIFT COUNT 

032737 8 3! {ore TEMPO 


001402 
LET TEMPO := NEGATE TEMPO 
005437 TEMPO 


ENDIF 
$51626: 
LET TEMPO := TEMPO CLR.BY #177600 
042737 #177600, TEMPO 
TAKE CARE OF EXPECTED NBIT 


IF SIGNO EQ #-1 AND DATAOO NE #0 THEN 


ERERRRRLLEE 
RNR 


3 5 


023727 177777 
001006 
005737 
001403 
LET CC.EXP := CC.EXP SET.BY #NBIT 


052737 ee #NBIT.CC.EXP 


CPS ELR ERE Pane ed tt toh tot ot 
RRRRRLRER 
SSRREEN 


; TAKE CARE OF ZERO LENGTH SOURCE OR DESTINATION 
IF DATAO1 NE #0 THEN 


SSSSsessss 
DNRARW=S 


DATAQ1 
$51630 


#DS.EXP.RO 


LET RO := #DS.EXP 
INCR R1 FROM #1 TO DATAO1 BY #1 


MN 


CoOowodo 
W230 


#1.R1 
$51631 
R1 


R1,DATAO1 
$51633 


#60, (RO)+ 
$51632 


$51632: 
$51631: 


SSBSSFSZ 
RRRRLRLRRRRLRLRLRE 


LET (RO)+ :B= #60 
END INC 


tt SS SS 2 9 Bh 2 SS Ss Ss Sh FS hs FB Ss SS 4 Ss 9 Ss Ss) 9 2 PS 9 9 3s 3 Sh 9 2 Ss 3 hs SS Ss BS SB BS BP BS Ss SO 
Ww 


OO0o0O000D0 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


me ek ke ed ed ed td td a ot os ss 
gRERESeRECeRE Gees 
RR NNO oaxsdd 


¥ 


$51633: 
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041626 ENDIF 

041626 $51630: 
041626 IF DATAOO EQ #0 OR DATAO1 EQ 40 THEN 

gies 


DOO 
QE 


$51635 


LET CC.EXP := CC.EXP SET.BY #ZBIT 
052737 000520 gL Se #ZBIT,CC.EXP 
000567 $51636 
$51635: 


RRRRRRRRR 


TAKE CARE OF NEGATIVE SHIFT 


IF #BITO7 SETIN DATAO2 THEN 
032737 #B1T07 ,DATAO2 
BEQ $51637 


001465 
LET RO := DATAOO = TEMPO 7SRC.LEN - SHIFT COUNT 
013700 DATAOO,RO 
163700 0004 TEMPO RO 
LET R1 := ADS.EXP + DATAO1 
012701 #DS.EXP,R1 
063701 DATAO1,R1 
LET R2 := #1 
012702 #1,R2 
LET R3 := DATAO1 
013703 DATA01 ,R3 
IF RO EQ 40 THEN 
005700 RO 
001012 BNE $51640 
IF DATAO2 HIS #3000 THEN 
023727 DATAO2 , #3000 
1 $51641 


03403 
LET -(R1) :B= #61 
112741 #61,-(R1) 
ELSE 
000403 $51642 


LET CC.EXP := CC.EXP SET.BY #ZBIT 
052737 #7BIT.CC.EXP 
ENDIF 

ENDIF 

IF RO LT #0 THEN 
005700 RO 
seen LET CC.EXP := CC.EXP SET.BY #ZBIT Sotet3 
052737 a re pa = Sty : #7BIT,CC.EXP 


WHILE R2 LE RO AND R3 HI #0 DO 


SRRERERERE RSS 


RRRRRRRRRRRRRLRLLRLRLLRLLLLLLLLLLLLLRLLR 
Ao 
si 


ERRERRER GSES 


WANN NNANNNNNSNA NOOO 
RERKKR ERA AANA IISAS Ps) SESS 
SS RAMAA MORO RAC RRR UCONN 


NNN 
RF 


a ak ee ce a ad sd dd ed ed ed dd kd dd dd kd nk a na a a od ad 2 od 0 ot ot ot I 
N 
Ww 
&S 
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1 
1 
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1 
1 
1 
1 
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1 
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1 
1 
1 
1 
1 
1 
1 
1 
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1 
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Ett to toot SER ER RRR RETS 
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11991 041756 003017 BGT $51645 
11992 041760 005703 TST 

11993 041762 101415 BLOS  $51645 
11994 041764 LET =(R1) :B= #64 

11995 041764 112741 000064 MOVB 4#64,-(R1) 
1199 041770 IF R2 EQ #1 AND DATAO2 HIS #3000 THEN 

11997 041770 020227 000001 CMP R21 

11998 041774 00100 BNE $51646 
11999 041776 023727 000564 003000 CMP DATAO2 #3000 
12000 042004 103401 BLO $51646 
12001 042006 LET (R1) :B= (R1) + 41 ZROUND ING 

12008 042006 105211 INCB— (R11) 

12003 042010 ENDIF 

12004 10 $51646: 

12005 042010 LET R2 := R2 + #1 

12006 042010 005202 INC R2 

12007 042012 LET R3 := R3 - #1 

12008 042012 005303 DEC R3 

12009 042014 ENDDO 

12010 042014 000757 BR $51644 
12011 042016 $51645: 

12012 042016 IF R3 EQ #0 AND R2 LE RO THEN 

12013 042016 005703 TST R3 

12014 042020 001005 BNE $51647 
12015 042022 020200 CMP R2,RO 
12016 042024 003003 BGT $51647 
12017 042026 LET CC.EXP := CC.EXP SET.BY AVBIT 

72018 042026 052737 000002 000520 BIS AVBIT.CC.EXP 
12019 042034 ENDIF 

12020 042034 $51647: 

12021 042034 ENDIF 

12022 042034 $51637: 

12023 

asd > TAKE CARE OF POSITIVE SHIFT 

12026 042034 IF #BITO7 NOTSETIN DATAO2 THEN 

12027 042034 032737 000200 000564 BIT #81107, DATAO2 
12028 042042 001072 BNE $51650 
12029 042044 LET TEMP1 := DATAOO + TEMPO 3SRC.LEN + SHIFT COUNT 

12030 042044 013737 000560 000476 MOV DATAOO, TEMP1 
12031 042052 063737 000474 000476 ADD TEMPO, TEMP1 
12032 042060 IF TEMP1 HI DATAO1 THEN 

12033 042060 023737 000476 000562 CMP TEMP1 ,DATAO1 
12034 042066 101403 BLOS $51651 
12035 042070 LET CC.EXP := CC.EXP SET.BY #VBIT 

12036 042070 052737 000002 000520 BIS #VBIT.CC.EXP 
12037 042076 ENDIF 

12038 042076 $51651: 

12039 042076 IF TEMPO HIS DATAO1 THEN :SHIFT COUNT >= DST.LEN 

12040 042076 023737 000474 000562 CMP TEMPO, DATAO1 
12041 042104 103420 BLO $51652 
12042 042106 LET CC.EXP := CC.EXP SET.BY #ZBIT 

12043 042106 052737 000004 000520 BIS #7BIT.CC.EXP 
12044 062114 LET R1 := #DS.EXP 

12045 042114 012701 062536 MOV #DS.EXP,R1 
12046 042120 INCR RO FROM #1 TO DATAO1 BY #1 
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012700 000001 #1,RO 
000401 BR $51653 
$51654: 


005200 I RO 
$51653: 
peo ae C RO, DATAO1 


$51655 
LET (R1)+ :B= #60 
112721 #60, (R1)+ 
ENDINC 
000771 BR $51654 


ELSE SHIFT COUT < DST LEN 
000431 , BR $51656 


$51652: 
LET R1 := #DS.EXP + DATAQ1 
012701 MOV #DS.EXP,R1 
063701 ADD DATAO1,R1 
nizres INCR RO FROM #1 TO TEMPO BY #1 in pe 
V #1,R 
000401 anette BR $51657 
ates spies = 4 
020037 "(MP RO, TEMPO 
$51661 


003003 
LET -(R1) :B= #60 
112741 #60,-(R1) 
END INC 
000771 BR $51660 


LET RO := DATAOO SRC PA 
013700 : pees ; DATAOO, RO 
WHILE R1 HI #DS.EXP AND RO HI 40 DO 
$51662: 


020127 R1,4DS.EXP 
10140 alos $5f6s3" 
101404 $51663 
LET -(R1) :B= #64 
sani: LET RO := RO - #1 en 
005300 oe RO 
ENDDO 
000767 BR $51662 
$51663: 
ENDIF 


—_ $51656: 
ne ir $51650: 


$51636: 
IF #ZBIT SETIN CC.EXP THEN 


Bitte er eben chor ss 


4 


SSS8ss 
BIVRALANASS 


SSRs 


8 
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1 
1 
1 
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1 
1 
1 
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1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
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1 
1 


B3EEees 


ose 


032737 000520 
001403 


— 3S DP HY os ss HS 


828 


LET CC.EXP := CC.EXP CLR.BY #NBIT 
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042240 042737 000010 000520 ANBIT,CC.EXP 
042246 ENDIF 


— 
mw 
=’ 
oO 
Ww 


:SAVE THE FIRST AND LAST EXPECTED DST DIGITS 


LET DSTMPO :B= DS.EXP 
113737 DS.EXP,DSTMPO 
012700 LET RO := #DS.EXP + DATAOI - #1 4.0.20 
. x e 
063700 000562 — -RO 


LET DSTMP1 :B= (RO) 
111037 (RO) ,DSTMP1 


3+ 
; PERFORM THE ASHN INSTRUCTION WITH ALL SIX NUMERIC 
; DATA TYPES. ‘DATTYP’’ WILL CONTAIN THE DATA TYPE 
; CURRENTLY BEING TESTED. 


; INCR DATTYP FROM #0 TO #50000 BY #10000 
INLINE <CLR DATTYP> 
005037 CLR DATTYP 
INLINE <BR $5602> 
000403 BR $5602 
INLINE <$5601:> 
$5601: 


LET DATTYP := DATTYP + #10000 
062737 ADD #10000 ,DATTYP 
INLINE <$5602:> 
$5602: 


IF DATTYP GT #50000 THEN 
023727 CMP DATTYP #50000 
003402 BLE $51665 
INLINE <JMP $5603> 
000137 JMP $5603 


ENDIF 
$51665: 


Tie aie tek SRC DIGITS orm» 8 
:SRC.LEN > 
005737 T DATAOO 
$51666 


101411 - : . 
LET DSBUF1 :B= # 

112737 #4 ,DSBUF 1 
LET RO := #DSBUF1-1 + DATAOO 

012700 #DSBUF 1-1 ,RO 

063700 DATAOO,RO 
LET (RO) :B= #4 

112710 #4, (RO) 

ENDIF 


sRESTORE FIRST — LAST DST DIGITS 
iF DATAO1 HI #0 THEN :DST.LEN > 0 


104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
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133 
134 
135 
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137 
138 
139 
140 
141 
142 
143 
144 
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146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 


te ek eh et ee ed ek ak ek me ek ed ek eh dk kk a kd th ad ot a ot ot 1 ot 1 SI 
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2 
2 
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2 
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2 
2 
2 
2 
2 
2 
2 
2 
2 
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2 
2 
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2 


DATAQ1 
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101411 $51667 
LET DS.EXP :B= DSTMPO 
113737 000552 062536 DSTMPO,DS.EXP 
LET RO := #DS.EXP=1 + DATAQ1 
012700 062535 MOV #DS.EXP=1 ,RO 
063700 000562 


DATAO1,RO 
LET (RO) :B= DSTMP1 
113710 000553 ENDIF MOVB DSTMP1, (RO) 


$51667: 

sFINISH SETTING UP EXPECTED RESULTS ACCORDING TO DATA TYPE 
IF DATTYP EQ #0 THEN z*** SIGNED ZONED *** 
005737 TST DATTYP 
001067 BNE $51670 
LET DSBUF 1-1 :B= #0 sRESTORE SRC AFTER LEADING SEPARATE 

105037 CLRB 


DSBUF 1-1 
IF DATAOO HI #0 THEN 7SRC.LEN > 0 
005737 T DATAOO 
101414 $51671 
ariel LET RO := #DSBUF1-1 + DATAOO ceiaedc an 
063700 000560 


DATAOO ,RO 
IF SIGNO EQ #0 THEN :SIGN IS + 


SEQ 0250 


uw 
Oo 


005737 S1GNO 
001003 $51672 
LET (RO) :B= #64 
112710 #64 , (RO) 
ELSE :SIGN IS - 
000402 BR $51673 


$51672: 
LET (RO) :B= 
112710 MOVB #164, (RO) 


ENDIF 
$51673: 
ENDIF 


$51671: 
LET DS.EXP=-1 :B= #0 sRESTORE DST AFTER LEADING SEPARATE 
105037 CLRB DS.EXP=1 
IF DATAO1 HI #0 THEN ;DST.LEN > 0 
005737 TST DATAO1 
101441 BLOS $51674 
LET RO := #DS.EXP-1 + DATAQ1 
MOV #D0S.EXP-1,RO 
ADD DATAO1 ,RO 
IF SIGNO EQ #0 OR DATAOO EQ 40 OR #ZBIT SETIN CC.EXP THEN sSIGN IS + 
TST SIGNO 
$51675 
DATAOO 
$51675 
#Z7BIT,CC.EXP 
$51676 


POMNNNPNNoNoNoNonoNonononangNnonononononofnsfononsfonsforon 


ee eS Lt Lt ee ee ee ee ee Lee ee ee ae eS SF 
BELKIRAVLSSELKARAV LS ISVSARANVSSKSAFFLABLS 


Beas 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


MONONPNNSNoN NNN profry 


SSSSSS 


BE 
LET (RO) :B= (RO) SET.BY #60 $51675: 
152710 byes :B= : a epee 
. ; $51677 


Rurohunohon honour) 
MONONA 
ee eed eed eed eed 
Swh-o 
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$51676: 
LET (RO) :B= (RO) SET.BY #160 
152710 000160 ENDIF BISB #160, (RO) 


$51677: 
IFB DATAO2 LO DATAOO AND #BITO7 NOTSETIN DATAO2 AND SIGNO EQ #-1 THEN 
if Se Ua 000564 000560 CMPB BOT ARs DATACO 


000200 000564 #81T07 ,DATAOZ 
$51700 
000446 177777 SIGNO,4#~1 
BNE $5 


1700 
LET (RO) :B= (RO) SET.BY #160 
152710 000160 #160, (RO) 


ENDIF 

$51700: 
ENDIF 

$51674: 


ENDIF 
$51670: 
IF DATTYP EQ #10000 THEN :*** UNSIGNED ZONED *** 
023727 CMP DATTYP,#10000 
001025 BNE $51701 
LET CC.EXP := CC.EXP CLR.BY ANBIT 
042737 B A#NBIT,CC.EXP 
IF DATAOO HI #0 THEN :SRC.LEN > 0 
005737 


Roe 
UEWN— 


T DATAOO 
101406 $51702 


LET RO := #DSBUF1-1 + DATAOO 
012700 #DSBUF 1-1 ,RO 
063700 000560 


DATAOO ,RO 
LET (RO) :B= #64 
112710 #64, (RO) 


ENDIF 
$51702: 

IF DATAO1 HI #0 THEN ;DST.LEN > 0 
005737 DATAO1 
101406 $51703 

LET RO := #DS.EXP-1 + DATAQ1 

012700 #DS.EXP=1,RO 
063700 6 


DATAO1 ,RO 
LET (RO) :B= (RO) SET.BY #60 
152710 #60, (RO) 


ENDIF 
$51703: 
ENDIF 


$51701: 
IF DATTYP EQ #20000 THEN z*** TRAILING OVERPUNCH *** 
023727 CMP DATTYP ,#20000 
BNE $51704 


001102 
IF DATAOO HI #0 THEN ;SRC.LEN > 0 A00 


005737 ST DAT 
— IF SIGNO EQ #-1 AND #ZBIT NOTSETIN CC.EXP THEN setiabas 
023727 177777 . . SIGNO.#=1 
001007 BNE $51706 





om 
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042676 032737 000004 000520 6IT #7B1T,CC.EXP 
042704 001003 06 


BNE 
LET CC.EXP := CC.EXP SET.BY A#NBIT ;RESTORE NBIT AFTER UNSIGNED ZONED 
052737 000010 000520 BIS ANBIT,CC.EXP 


ENDIF 
$51706: 
LET RO := #DSBUF 1-1 + DATAOO 
012700 062367 #DSBUF 1=1,R0 
063700 000560 DATAOO,RO 
IF SIGNO EQ #0 THEN ;SIGN IS + 
005737 000446 


SIGNO 
001003 BNE $51707 
LET (RO) :B= #104 
112710 000104 #104, (RO) 
ELSE :SIGN IS - 
000402 BR $51710 


$51707: 
LET (RO) :B= #115 
112710 #115, (RO) 


ENDIF 
$51710: 
ENDIF 
$51705: 
IF DATAO1 HI #0 THEN :DST.LEN > 0 
005737 TST DATAO1 
101445 BLOS $51711 
LET RO := #DS.EXP-1 + DATAO1 
MOV #DS .EXP-1 ,RO 
DATAO1 ,RO 


ADD 
IF SIGNO EQ #0 OR DATAOO EQ #0 OR #ZBIT SETIN CC.EXP eg 


CC.EXP 


$51712 
#ZBIT 
$51713 


$51712: 
LET R1 :B= #0 


ELSE :SIGN IS - 


$51713: 
LET R1 :B= #10. 
112701 #10. ,R1 
ENDIF 


$51714: 
IFB DATAO2 LO DATAOO AND #BITO7 NOTSETIN DATAO2 AND SIGNO EQ #-1 THEN 
if +14 84 000560 oe DAT Ade -DATADO 


032737 000564 BIT #81T07 ,DATAO2 
1 $51715 


Oo 3009 177777 oe SIGNO,#~1 
001002 BNE $51715 
LET R1 :B= #10. 
112701 MOVB «#10... R1 
ENDIF 


R1 
$51714 


Nm 
w 
— 


WWAWA 
WOONAUS WMO 
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SEQ 0253 
12327 043052 $51715: 
12328 043052 LET R1 :B= R1 SET.BY (RO) 
12329 043052 151001 BISB (RO) ,R1 
12330 043054 LET R1 := R1 CLR.BY 4177760 
12331 043054 042701 177760 BIC #177760,R1 
12332 043060 LET (RO) :B= OVPNCH(R1) 
12333 043060 116110 055254 MOVB OVPNCH(R1) , (RO) 
12334 043064 ENDIF 
12336 043064 ENDIF 
12337 043064 $51704: 
12338 043064 IF DATTYP EQ #30000 THEN ;*** LEADING OVERPUNCH *** 
12339 043064 023727 000462 030000 CMP DATTYP,430000 
12340 043072 001063 $51716 
12341 043074 IF DATAOO HI #0 THEN 7SRC.LEN > 0 
12342 043074 005737 000560 TST DATAOO 
12343 043100 101412 BLOS $51717 
12344 043102 IF SIGNO EQ #0 THEN :SIGN IS + 
12345 043102 005737 000446 TST $S1GNO 
12346 043106 001004 BNE $51720 
12347 043110 LET DSBUF1 :B= #104 
12348 043110 112737 000104 062370 MOVB #104 ,DSBUF 1 
12349 043116 ELSE :SIGN IS - 
12350 043116 000403 BR $51721 
12351 043120 $51720: 
12352 043120 LET DSBUF1 :B= #115 
12353 043120 112737 000115 062370 MOVB #115, DSBUF 1 
2354 043126 ENDIF 
12355 04312 $51721: 
2356 04312 ENDIF 
12357 043126 $51717: 
12358 043126 IF DATAO1 HI #0 THEN :DST.LEN > 0 
12359 043126 005737 000562 TST DATAO1 
12360 043132 101443 BLOS $51722 
12361 043134 IF SIGNO EQ #0 OR DATAOO EQ #0 OR AZBIT SETIN CC.EXP THEN :SIGN IS + 
12362 043134 005737 000446 TST SIGNO 
12363 043140 001407 BEQ $51723 
12364 043142 005737 000560 TST DATA 
12365 043146 001404 BEQ $51723 
12366 043150 032737 000004 000520 BIT #ZBIT,CC.EXP 
12367 043156 001402 BEQ $51724 
12 043160 $51723: 
12369 043160 LET R1 :B= #0 
12370 043160 105001 CLRB R1 
2371 043162 ELSE :SIGN IS - 
12372 043162 0060402 BR $51725 
123735 043164 $51724: 
12374 043164 LET R1 :B= #10, 
12375 043164 112701 000012 MOVB #10.,R1 
12376 043170 ENDIF 
12377 043170 $51725: 
12378 043170 IFB DATAO2 LO DATAOO AND #BITO7 NOTSETIN DATAO2 AND SIGNO EQ 4-1 THEN 
12379 043170 123737 000564 000560 CMPB DATAQ2 ,DATAOO 
12380 043176 103012 BHIS 517, 
12381 043200 032737 000200 000564 BIT #81107 ,DATAO2 
12382 043206 001006 BNE $51726 


oT ae | 
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12383 043210 023727 000446 177777 (MP SIGNO,4#=1 
12384 043216 001002 BNE $51726 
12385 043220 LET R1 :B= #10. 

12386 043220 112701 000012 MOVB = #10..,R7 
12387 043224 ENDIF 

12388 043204 $51726: 

12389 3224 LET R1 :B= R1 SET.BY DS.EXP 

12390 043224 153701 062536 BISB DS.EXP,R1 
12391 043230 LET R71 := R1 CLR.BY #177760 

12392 043230 042701 177760 BIC #177760,R1 
12393 043234 LET DS.EXP :B= OVPNCH(R1) 

12394 043234 116137 055254 062536 MOVB  OVPNCH(R1),DS.EX 
12395 043242 ENDIF 

1239 043242 $51722: 

12397 043242 ENDIF 

12398 043242 $51716: 

12399 043242 IF DATTYP EQ #40000 THEN y*** TRAILING SEPARATE *** 

12400 043242 023727 000462 040000 CMP DATTYP, #40000 
12401 043250 001071 BNE $51727 
iscnr ;PUT SIGN INTO SOURCE 

12405 043252 LET TEMPO := #DSBUF1 + DATA0O 

12406 043252 012737 062370 000474 MOV #DSBUF 1, TEMPO 
12407 043260 063737 000560 000474 ADD DATAOO, TEMPO 
12408 043266 IF SIGNO EQ 40 THEN sSIGN IS + 

12409 043266 005737 000446 TST SIGNO 

12410 043272 001004 BNE $51730 
12411 043274 LET @TEMPO :B= #53 

12412 043274 112777 000053 135172 MOVB #53, aTEMPO 
12413 043302 ELSE ZSIGN IS - 

12414 043302 000403 BR $51731 
12415 043304 $51730: 

12416 043304 LET aTEMPO :B= #55 

12417 043304 112777 000055 135162 MOVB #55, aTEMPO 
12418 043312 ENDIF 

12419 043312 $51731: 

12420 

ices) ;PUT EXPECTED SIGN INTO DS.EXP 

12423 043312 LET TEMPO := #DS.EXP + DATA01 

12424 043312 012737 062536 000474 MOV #DS.EXP, TEMPO 
12425 043320 063737 000562 000474 ADD DATAO1, TEMPO 
12426 043326 IF SIGNO EQ #0 OR #ZBIT SETIN CC.EXP THEN 

12427 043326 005737 000446 TST SIGNO 

12428 043332 001404 BEQ $51732 
12429 043334 032737 000004 000520 BIT #7BIT,CC.EXP 
12430 043342 001404 BEQ $5173 
12431 043344 $51732: 

12632 043344 LET aTEMPO :B= #53 

12433 043344 112777 000053 135122 MOVB #53, aTEMPO 
12434 043352 ELSE 

12435 043352 000403 BR $51734 
12436 043354 $51733: 

12437 043354 LET @TEMPO :B= #55 


12438 043354 112777 000055 135112 MOVB . #55,aTEMPO 


On 
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SEQ 0255 
ENDIF 


$51734: 
IFB DATAO2 LO DATAOO AND #BITO7 NOTSETIN DATAO2 AND SIGNO EQ #=-1 THEN 
123737 000560 CMPB DATAO2 ,DATAOO 
103013 BHIS $51735 
032737 000564 BIT #B1T07,DATAO2 
BNE $51735 


001007 
023727 177777 CMP SIGNO,#=1 
001003 BNE $51735 
LET @TEMPO :B= #55 
112777 135054 #55 ,aTEMPO 
ENDIF ves 


$51 
IF DATAO1 EQ #0 THEN :DST.LEN = 0 
005737 DATAO1 
001003 $51736 
LET CC.EXP := CC.EXP CLR.BY #VBIT 
042737 #VBIT.CC.EXP 


ENDIF 
$51736: 
ENDIF 


$51727: 
IF DATTYP EQ #50000 THEN 3*** LEADING SEPARATE *** 

023727 000462 CMP DATTYP,450000 
001075 BNE $51737 

LET TEMPO := #DS.EXP + DATAQO1 
012737 062536 MOV #DS EXP, TEMPO 
063737 000562 ADD DATAO1 , TEMPO 

LET @TEMPO :B= #0 RESTORE DS.EXP FROM TRAILING SEPARATE 
105077 135010 CLRB aTEMPO 

LET TEMPO := #DS.DST + DATAO1 
012737 062474 MOV #0S.DST, TEMPO 
063737 000562 ADD DATAO1 , TEMPO 

LET @TEMPO :B= #0 RESTORE DS.DST FROM TRAILING SEPARATE 
105077 134770 CLRB aTEMPO 


iii 
Rucesnaes 


RRERRRRRRRRRKKRRKKKK 
KEELES EERE 


KEE 
FEERERRRSSSS 


PUT SIGN INTO SOURCE 


IF SIGNO EQ #0 THEN :SIGN IS + 
005737 SIGNO 
001004 $51740 
LET DSBUF1-1 :B= #53 
112737 #53 ,DSBUF 1-1 


ELSE :SIGN IS - 
000403 $51741 


$51740: 
LET DSBUF1-1 :B= #55 
112737 #55 ,DSBUF 1-1 


ENDIF 

IF SIGNO EQ #0 OR #ZBIT SETIN CC.EXP THEN sanlstactn 

$03404 ) Bea $aibe2 

032737 #7BIT,CC.EXP 
001404 ssire$ 

$51742: 





on 
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12495 LET DS.EXP=1 :B= #53 

1sh38 043546 112737 000053 062535 MOVB #53,0S.EXP=1 
1249 ELSE 

12498 000403 BR $51744 

12499 $51743: 

12500 043556 LET DS.EXP=1 :B= #55 

112737 062535 ENDIF MOVB #55 ,DS.EXP=1 


$51744: 
IFB DATAO2 LO DATAOO AND #BITO7 NOTSETIN DATAO2 AND SIGNO EQ #=-1 THEN 
000560 CMPB DATAO2 ,DATAOO 


000564 #81107 ,DATAO2 
BNE $51745 
177777 SIGNO,#=1 
$51745 
LET DS.EXP=1 :B= #55 
112737 062535 #55,DS.EXP=1 
ENDIF an 


$5174 

IF DATAO1 EQ #0 THEN :DST.LEN = 0 

005737 DATAO1 
001003 BNE 


$51746 
LET CC.EXP := CC.EXP CLR.BY AVBIT 
042737 #VBIT,CC.EXP 


ENDIF 
$51746: 
ENDIF 
$51737: 


SEQ 0256 


nyvy 
So 


rrr 
SECROR aCe 


MMIVMIMIVIMIAMI an 
— SS dS 
SOBNANRWNUS 


Mnrohononononofynosfyprsprror 
Vivi“ 


wi 
MNoNr 
URW 


Rr 


i+ 
: SET UP THE GPR*S AND DO THE ASHN INSTRUCTION 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 


eres LET RO := DATAOO SET.BY DATTYP caeeiet oe 

053700 000462 DATTYP,RO 
LET R1 := #DSBUF1 

012701 #OSBUF 1,R1 
LET R2 := DATAO1 SET.BY DATTYP 

013702 MOV DATAO1 .R2 

053702 DATTYP,.Re 
LET R3 := #DS.DST 

012703 #DS.DST.R3 
LET R4 := DATAO2 

013704 DATA02,.R4 
LET RS := #1 

012705 #-1,R5 
INLINE <ASHND> 

076056 


i+ 
: CHECK THE RESULTS AND REPORT ERRORS 


LET CC := PSwW 





an 
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013737 177776 000516 PSwW,CC 
LET CC := CC CLR.BY #177760 
042737 177760 000516 #177760,CC 
IF CC NE CC.EXP THEN 
023737 000516 000520 CC,CC.EXP 
001402 


$51747 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$51747: 
IF RO NE #0 OR R1 NE #0 OR R4 NE #0 THEN 


vVivivwi 
Wr 


PARAL ALIA 
BIR 


wi 
oO 


005700 
001004 
005701 
001002 


RO 
$51750 
R1 
dN <4 750 
001402 BEQ $51751 


$51750: 
CALL ERROR 
004737 056274 PC ,ERROR 


ENDIF 
$51751: 

LET TEMPO := DATAO1 SET.BY DATTYP 
013737 000562 000474 DATAO1 , TEMPO 
053737 000462 000474 DATTYP, TEMPO 

IF R2 NE TEMPO THEN 
020237 000474 R2, TEMPO 
001402 $51752 

CALL ERROR 

004737 056274 PC ERROR 


ENDIF 
$51752: 
IF R3 NE #DS.DST THEN 
020327 062474 CMP R3,4DS.DST 
001402 BEQ $51753 
CALL ERROR :DS.EXP AND DS.DST DO NOT MATCH 
004737 056274 JSR PC ERROR 


ENDIF 
$51753: 
;COMPARE DS.EXP WITH DS.DST 
LET ERRFLG := 40 ;CLEAR ERROR FLAG 
005037 ; CLR ERRFLG 
LET RO := #41 


012700 MOV #41,RO 
LET R1 := #DS.DST-1 
012701 MOV #DS.DST-1,R1 
LET R2 := #DS.EXP=1 
012702 #DS.EXP=1,R2 
WHILE RO NE #0 AND ERRFLG EQ 40 DO 
$51754: ‘ 


005700 RO 
Mae 35 mer CRRarig 
001007 BNE $51755 
IFB (R1)+ NE (R2)+ THEN 
122122 (R1)+, (R2)+ 


MroNNoNoNoPensnensferonferereroers 


SIRERERAS 
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001403 $51756 
LET ERRFLG := #1 
012737 177777 000454 #=1 ,ERRFLG 


ENDIF 
$51756: 
LET RO := RO = #1 
005300 RO 


ENDDO 
$51754 


BR 
$51755: 
IF ERRFLG NE #40 THEN 
000454 ERRFLG 


$51757 
CALL ERROR 
056274 PC,ERROR 


ENDIF 
$51757: 
sENDINC 
INLINE <JMP $5601> 


INLINE <$5603:> 


3S Se SY SS SS 


JMP $5601 
$5603: 


ee ee ek ed ee cd ed ed nd od ed 
Nm 


BBee 


INCR RO FROM #DS.EXP=-1 TO #DS.EXP+37 BY #1 
012700 MOV #DS.EXP-1 ,RO 
000401 $51760 


BR 
$51761: 
005200 INC RO 
$51760: 
020027 CMP RO, ADS .EXP+37 
00: $51762 


3002 BGT 
LET (RO) :B= #0 :GLEAR DS.DST 
105010 CLRB (RO) 
ENDINC 
000772 BR $51761 


$51762: 
LET SIGNO := COMP SIGNO REPEAT THE TEST CASE WITH A 1 
: SIGN BEFORE MOVING ON TO THE NEXT ONE 
IF SIGNO EQ #0 THEN 


005737 TST S1GNO 

001005 BNE $51763 
LET TSTCAS := TSTCAS + #6 

062737 2 #6, TSTCAS 
LET COUNT := COUNT - #1 

005337 COUNT 


ENDIF 
$51763: 
zUNTIL COUNT EQ #0 
IF COUNT NE #0 THEN 


06 
12 
it 
14 
16 
16 
20 


005137 


COUNT 
$51764 
$5056 


INLINE <JMP $5056> 


ENDIF 
$51764: 
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s¢ 
; DO ONE INLINE CASE = ASHNI 


CALL CLRDSB 
004737 055520 JSR PC,CLRDSB 
;LOAD SRC STRING INTO DSBUF i 
LET RO := #DSBUF 1-1 
012700 062367 1 ald RO 
(RO)+ :B= #53 ; LEADING SEPARATE SIGN OF + 
112720 000053 MOVB #53, (RO)+ 
(RO)+ :B= #9. ;PUT SRC MAGNITUDE OF 9999 
112720 000011 MOVB #9. ,(RO)+ 
(RO)+ :B= #9. ; INTO DSBUFI 
112720 000011 MOVB #9. ,(RO)+ 
(RO)+ : #9, 
112720 000011 #9. , (RO)+ 
(RO) :B= #9. 
112710 000011 - #9., (RO) 
005000 - RO 
005001 R1 
R2 : 
005002 R2 
R3 : 
005003 R3 
RG: 
005004 RS 
RS : 
005005 RS 
INLINE <ASHNI> 
076156 ASHNI 
INLINE <.WORD TASHNI> 
044422 -WORD TASHNI 
INLINE <.WORD TASHNI+4> 
044426 -WORD TASHNI+4 
INLINE <.WORD 000002> ;SHIFT COUNT = 2, RND DIGIT = 0 
000002 iat ee -WORD 000002 
013737 177776 PSW,.CC 
LET CC := CC CLR.BY #177760 
042737 177760 BI #177760,CC 
IF CC NE #6 THEN ;VBIT SHOULD BE 
023727 000516 C 


MP CC,46 
001402 $51765 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$51765: 
IF RO NE #0 OR R1 NE #0 OR R2 NE #0 THEN 


005700 
001004 
005701 
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12719 
127 


SS 
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wr 
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044274 
044 


122027 
001402 
004737 


122027 
001402 


004737 


105720 
001405 


004737 
012737 


000762 
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CALL ERROR 
ENDIF 
IF R3 NE #0 OR R4 NE #0 OR RS NE #0 THEN 


056274 


CALL ERROR 
ENDIF 


CHECK DS.DST 
LET RO := #DS.DST 


IFB (RO)+ NE #173 THEN 


056274 


062474 
000173 
CALL ERROR 
ENDIF 
IFB (RO)+ NE #60 THEN 


056274 


000060 
CALL ERROR 
ENDIF 
LET ERRFLG := 40 
WHILE ERRFLG EQ #0 AND RO NE #DS.DST+37 DO 


056274 


000454 


000454 
062533 
IFB (RO)+ NE #0 THEN 


CALL ERROR 
LET ERRFLG := #~1 
ENDIF 
ENDDO 


056274 
177777 000454 


$51766: 


$51767: 


$51770: 


$51771: 


$51772: 


$51773: 


$51774: 


$51776: 


$51766 
R2 
$51767 


PC ERROR 


R3 
$51770 
R4 
a 
$51771 


PC,ERROR 


#DS .DST,RO 


(RO)+,#173 
$51772 


PC,ERROR 


(RO) +, 460 
$51773 


PC,,ERROR 


ERRFLG 


ERRFLG 
77 


$51775 
RO, ADS .DST+37 
$51775 


(RO) + 
$51776 


PC ERROR 
#-1,,ERRFLG 


$51774 
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000137 044432 


INLINE 


<JMP = CIS6END> 


3¢ 
; INLINE TEST CASE 


TASHNI: . 


INL INE 


050004 
DSBUF 1 
030002 
DS.DST 


<CIS6END:> 


5 
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$51775: 
JMP CIS6END 


et: Sen’ LEADING SEPARATE, SRC.LEN = 4 
;DST.DSCR, LEADING OVERPUNCH, DST.LEN = 2 
:DST.DSCR 


CIS6END: 


SEQ 0261 





CJKDGA, 
CJKDGA.P 


P11 


KEF 11-8 CIS DIAGNOSTI 
12-MAR=80 13:37 


000004 
017737 
042737 


005737 
001406 


032737 
001002 


000137 


012737 
005037 
012737 
012737 


133766 
177700 


000474 


000010 


052020 


000007 
000454 
000340 
000001 


000474 
000474 


000474 


000544 


177776 
000550 


E 5 
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SERRE ERAN 
Fe ee 


Cis? MODULE 


__INSTRUCT IONS : ADDP, 


MmALAAAALAAAALAASLLASAAAAASALLELS ALES SESE SERS ES ESE RTT CCPC ST ST SS 
SRE ER AREER 


-SBTTL CIS7 INITIALIZATION 


: THIS MODULE TESTS THE PACKED DATA TYPE ARITHMETIC 
: MPP, ASHP. 


SEERA KERR) CHEK EREE 


: CIS? INITIALIZATION 


SERRA REE KEKE RETAKE 


7 IF _SWR<5:0> ARE CLEARED OR IF SWR<3> IS SET THEN EXECUTE 
: THE CIS7 MODULE; OTHERWISE, SKIP TO THE NEXT CIS MODULE. 


INLINE <SCOPE> 


LET TEMPO := @SWR CLR.BY #177700 


IF TEMPO NE #0 THEN 


IF #BIT3 NOTSETIN TEMPO THEN 


INLINE <JMP- CIS7END> 
ENDIF 
ENDIF 
LET CTL := #7 :CONTROL CHIP NUMBER 


LET ERRFLG := #0 
LET PSW := #340 
LET ERR #1 


: INITIALIZE ERROR FLAG 


$52000: 
$51777: 


SCOPE 


MOV 
BIC 


TST 
BEQ 


BIT 
BNE 


JMP 


MOV 
CLR 
MOV 
MOV 


SEQ 0262 


@SWR, TEMPO 
#177700, TEMPO 


TEMPO 
$51777 
#B1T3, TEMPO 
$52000 


CIS7END 


#7,CTL 
ERRFLG 
#340 ,PSW 
#1,ERR 


. 2 
C MACY11 _— 14-MAR=80 08:04 PAGE 247 


CJKDGA, KEF11-8 CIS DIAGNOST! 
CJKDGA.P11 12-MAR=80 13:37 


-SBTTL ADDP 


~MmARASARASARAALASLALLALASAAASLAA SELES ESSE ESSERE SER ETT PP TPT PSPS ST SS 


ADDP TEST 


SEAR ERR EERE EERE EERE EERE REREREREERERKEREKREE 


INLINE <XADDP:> 


XADDP: 
INLINE <SCOPE> 
000004 SCOPE 
LET STIMES := #20 ; ITERATION COUNT 
012737 000020 000404 #20,$TIMES 
LET COUNT := TADD 34 OF TEST CASES 
013737 063200 000466 TADD , COUNT 
LET TSTCAS := #TADD+2 sPOINT TO FIRST TEST CASE 
012737 063202 000542 #TADD+2, TSTCAS 


2¢ 
: CLR RO.EXT TO R3.EXP 


INCR RO FROM #0 TO #6 BY #2 RO 
$52001 
ADD #2,R0 


CMP RO, #6 
BGT $52003 


CLR RO.EXP(RO) 
BR $52002 


INLINE <CLR RO.EXP(RO)> 
ENDINC 


REPEAT OUTER LOOP FOR TEST ‘ASES 
INLINE <$5070:> 


$5070: 
CALL CLRDSB :CLR DS BUFFERS 
055520 JSR PC,CLRDSB 


o@ 


; LOAD DATAXX AND CC.EXP FROM TEST CASE 


LET RO := TSTCAS 

013700 TSTCAS RO 
LET DATAOO := (RO)+ 3SRC1 LENGTH 

012037 (RO) + ,DATAOO 
LET DATAO1 := (RO)+ POINTER TO SRC1 DATA 

012037 (RO) +, DATAO1 
LET DATAO2 := (RO)+ 3SRC2 LENGTH 

012037 (RO) + ,DATAO2 
LET DATAOQ3 := (RO)+ POINTER TO SRC2 DATA 

012037 (RO) + ,DATAO3 
LET DATAOS := (RO)+ DEST LENGTH 





om 
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012037 000570 MO (RO) +,DATA04 
LET DATAOS := (RO)+ POINTER TO DS.EXP DATA (SUM) 

012037 000572 MO (RO) +,DATAOS 
LET CC.EXP := (RO)+ 3CC.EXP (SUM) 

012037 000520 (RO) +,CC.EXP 


ee 


. + ; 
; PACK BUFFERS FOR SRC1,SRC2, & DEST 


LET RS := ACHRSET 3R5 IS OPERAND STACK sacs” —-wanetae 


012705 #CHRSET RS 
CALL PACK IN <ADSBUF1,DATAQO1,DATAQO> ;SRC1 
010546 R5,-(SP) 
DATAOO,-(R5) 
DATAO1.=(R5) 
#DSBUF 1,-(R5) 
PC PACK 
(SP)+,R5 
CALL PACK IN <#DSBUF2,DATAQ3,DATA02> 


PC ,PACK 
(SP)+,R5 
CALL PACK IN <#DS.EXP,DATAOS ,DATA04> 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


BUSNSRUNSS SS cs os ae seeeeeS 


004 PC ,PACK 
012605 (SP)+,R5 


: LOAD GPR'S FROM DATAXX & ADD DATA TYPE 


LET RO := DATAOO SET.BY #60000 

013700 MOV DATAOO RO 

052700 060000 #60000 ,RO 
LET Ri := ADSBUFI 

012701 #DSBUF1,R1 

013702 LET R2 := DATAO2 SET.BY #60000 am eatane ae 

052702 060000 #60000 .R2 
LET R3 := ADSBUF2 

012703 #DSBUF 2 ,.R3 
LET R4 := DATAO4 SET.BY #60000 

013704 DATA04 ,R4 

052704 060000 #60000 .R4 
LET RS := #DS.DST 

012705 #D0S .DST.R5S 


WWIII 
ERER TREE 


BEERERERE 


VRVPRVVVPSRRVPyw 
BIBS 
NOUS WR = 


3 


FINISH SET UP & DO CIS INSTRUCTION 





on 


CJKDGA, KEF11-8 CIS DI 
12=MAR- 


CJKDGA.P11 


12958 
12959 


BE SERRER CEL 


3333 


Se SRO RECS S NES MR UeeReRERORES 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Sess 
Who 


010437 
010537 
076070 


013737 
042737 
023737 
001402 
004737 


020037 
001402 


004737 


020137 
001402 


004737 


020237 
001402 


004737 


020337 
001402 


004737 


020437 
001402 


ST] 
13:37 


177776 
177760 
000516 


056274 


000522 


056274 


000524 


056274 


000526 


056274 


000530 


056274 


000532 


000516 
000516 
000520 


H 5 
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LET R4&.EXP := 
LET RS.EXP := 
INLINE <ADDP> 


ae 


; CHECK CONDITION CODES AND GPR'S FOR CORRECT RESULTS. 


LET CC := PSW 


LET CC := CC CLR.BY #177760 


IF CC NE CC.EXP THEN 


CALL ERROR 
ENDIF 
IF RO NE RO.EXP THEN 


CALL ERROR 
ENDIF 
IF R1 NE R1.EXP THEN 


CALL ERROR 
ENDIF 
IF R2 NE R2.EXP THEN 


CALL ERROR 
ENDIF 
IF R3 NE R3.EXP THEN 


CALL ERROR 
ENDIF 
IF R& NE R4&.EX° THEN 


$52010: 


R4,R4.EXP 
R5,R5.EXP 


PSW,CC 
#177760,CC 


CC,CC.EXP 
$52004 


PC,ERROR 


RO,RO.EXP 
$ 


52005 
PC,ERROR 


R1,R1.EXP 


$52006 


PC ,ERROR 


R2,R2.EXP 
$52007 


PC ,ERROR 


R3,R3.EXP 
$52010 


PC ,ERROR 


R4_.R4.EXP 
$52011 
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=" 
S 
* 


CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$52011: 
IF RS NE RS.EXP THEN 
020537 000534 R5,R5.EXP 
001402 


$52012 
CALL ERROR ; 
004737 056274 PC,ERROR 


ENDIF 
$52012: 


SSSSS 
WIS ODNAN 


UFSWN= 
RRRRRRRRRER 


waa 
SER RRRSS 


i+ 
: CHECK RESULTS VS EXPECTED RESULTS 


LET RO := #DS.DST 
012700 #DS.DST,RO 
LET R1 := #DS.EXP 
012701 #DS.EXP,R1 
LET ERRFLG := #0 
ERRFLG 


WHILE RO NE #DS.DST+40 AND ERRFLG EQ 40 DO 
$52013: 


Waa aiiaiaisias 
BeteaRnasss 


RO, #DS.DST+40 
$52014 
ERRFLG 


$52014 
122021 IFB (RO)+ NE (R1)+ THEN CRO) 
RO) + 
001402 $52015 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$52015: 
. ENDDO 
000765 $52013 


LET TSTCAS := TSTCAS + #22 $52014: 
as | #22, TSTCAS 
LET COUNT := COUNT - #1 
005337 DEC COUNT 
iP NCOUNT NE #0. THEN 
005737 ve wher 
001402 BEQ $52016 
INLINE <JMP $5070> 
ete JMP $5070 


ENDIF 
$52016: 


—_ 

Oo 
Vv 
Oo 


See 


(R1)+ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5160 
5164 
5166 
5166 
5170 
5172 
5172 
5176 
5176 
5176 
5176 
200 


SSSS 
SUCUSSECE SE 


Ww 


SSSSS 
SOUR 


04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
045 
04 
045 
04 
04 
04 
04521 
04 
04 
0452 
04 
04 


i+ 
: INLINE CASE - ADDPI, USING UNSIGNED PACKED DATA 


CALL CLRDSB 


ak kk kd ad a a od od od 2 I a 6 


3 


EeRERERCE 
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if a 045224 004737 055520 PC,CLRDSB 

13072 s¢ 

13073 ; LOAD DATAXX AND CC.EXP FROM TEST CASE 

13074 [* 

13075 

13076 LET RO := #TADD+2 

13077 012700 #TADD+2,RO 

13078 34 LET DATAOO := (RO)+ 7SRC1 LENGTH 

13079 3%4 012037 (RO) +, DATAOO 
LET DATAO1 := (RO)+ sPOINTER TO SRC1 DATA 

012037 (RO)+,DATAO1 
LET DATAO2 := (RO)+ ;SRC2 LENGTH 

012037 (RO) +,DATAO2 
LET DATAOS3 := (RO)+ sPOINTER TO SRC2 DATA 

012037 (RO) +, DATAOS 
LET DATAO4 := (RO)+ :DEST LENGTH 

012037 (RO) +,DATAO4 
LET DATAOS := (RO)+ sPOINTER TO DS.EXP DATA (SUM) 

012037 MO (RO)+,DATAOS 


+ 


SEQ 0267 


33 


PACK BUFFERS FOR SRC1,SRC2, & DEST 


LET RS := #CHRSET 3R5 IS OPERAND STACK ee 
CALL PACK IN <#DSBUF1,DATAO1,DATAOO> ;SRC1 


SCERRERE EEE ELL 


012705 
010546 


#CHRSET RS 


$38 


PC ,PACK 
(SP)+,R5 
CALL PACK IN <A#DSBUF 2,DATA03,DATA02> 


(SP)+,R5 
CALL PACK IN <ADS.EXP,DATAOS,DATA04> 

R5,-(SP) 

DATA04 ,-(R5) 

DATAOS ,-(R5) 

#DS.EXP,-(R5) 
-PACK 

(SP)+,R5 


CALL CLRREG ENSURE GPR*S 0-5 ARE ZERO 
055330 J PC,.CLRREG 


WANWAWAWAAWNAWNWWNNANAWAW 


INLINE <ADDPI> 
INLINE <.WORD TADDPI> 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Roto a ow 


076170 


WANA 
™N 
ia) 
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CJKDGA, KEF11-8 
CJKDGA.P11 


1 


26 
e7 
28 
29 
30 
31 
32 
33 
4 
35 
3% 
37 
38 
39 
40 
4] 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
rs 
75 
76 
77 
78 
79 
80 
81 


CIS DIA 
12-MAR-80 


064066 
064072 
064076 
013737 
042737 


005737 
001402 


004737 


012700 
012701 
013702 


K 5 
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13:37 


177776 000516 
177760 000516 
000516 


056274 


056274 


056274 


AD 


INLINE <.WORD TADDP] +4> 
INLINE <.WORD TADDPI+10> 
LET CC := PSW 

LET CC := CC CLR.BY #177760 
IF CC NE #0 THEN 


CALL ERROR 
ENDIF 


i+ 
: ENSURE GPR'S STILL ZERO 


IF RO NE #0 OR R1 NE #0 OR R2 NE #0 THEN 


CALL ERROR 
ENDIF 
IF R3 NE #0 OR R4 NE #0 OR RS NE #0 THEN 


CALL ERROR 
ENDIF 


CHECK RESULTS 


= #DS.DST 
#DS.EXP EXPECTED DATA 
TADDF1+10 CLR.BY #70000;GET STRING LENGTH 


-WORD TADDPI 

«WORD TADDPI+4 

«WORD TADDP1+10 
PSW,CC 
#177760,CC 


CC 

$52017 

PC,ERROR 
$52017: 


RO 
$52020 
R1 
$52020 
R2 
$52021 
$52020: 
PC,.ERROR 
$52021: 
R3 
$52022 
RS 
$52022 


R 
$52023 
$52022: 


PC ERROR 
$52023: 


#DS.DST.RO 
#DS.EXP,R1 
TADDP1+10,R2 
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CJKDGA.P11 12=MAR=80 13:3 SEQ 0269 
13182 045502 042702 070000 BIC #70000,R2 
13183 045506 INLINE <ASR R2> ;LENGTH/2 (PACKING FACTOR) 

13184 045506 006202 ASR R2 

13185 045510 LET R2 := R2 + #DS.EXP :R2 POINTS TO MSD/SIGN 

13186 045510 062702 062536 ADD #DS.EXP,R2 
13187 045514 LET (R2) :B= (R2) SET.BY #17 — ;MAKE IT UNSIGNED 

13188 045514 152712 000017 BISB =: #17, (R2) 
13189 045520 LET ERRFLG := #0 

13190 045520 005037 000454 CLR ERRFLG 
13191 045524 WHILE RO NE #DS.DST+37 AND ERRFLG EQ 40 DO 

13192 045524 $52024: 

13193 045524 020027 062533 CMP RO, #DS.DST+37 
13194 045530 001410 BEQ $52025 
13195 045532 005737 000454 TST ERRFLG 
13196 045536 001005 BNE $52025 
13197 045540 IFB (RO)+ NE (R1)+ THEN 

13198 045540 122021 CMPB —s« (RO) +, (R11) + 
13199 045542 001402 BEQ $52026 
13200 045544 CALL ERROR 

13201 045544 004737 056274 JSR PC,ERROR 
13202 045550 ENDIF 

13203 045550 $52026: 

13204 045550 ENDDO 

13205 045550 000765 BR $52024 
13206 045552 $52025: 

13207 . 

13208 


on 
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3 


-SBTTL 


MARR ARALESASiSLeLESASAAAALELECSASESSESE SEL AR EEE SESE ESTP PT PTT TS 


SUBP TEST 


FERRER REE REKEKEEEEEKEKEKREREEKRERRRREKEKEKEEKEEREREEEKERKEEK EE 


INLINE <XSUBP:> 


XSUBP : 
INLINE <SCOPE> 
000004 SCOPE 
LET STIMES := #20 ; ITERATION COUNT 
012737 000020 000404 MOV #20, $TIMES 
LET COUNT := TADD 34 OF TEST CASES 
013737 063200 000466 MOV TADD , COUNT 
LET TSTCAS := #TADD+2 ;POINT TO FIRST TEST CASE 
012737 063202 000542 MOV MTADD+2,TSTCAS 


RIORRORORIORIAIRIRSRIAIRIAIAD 
WH SOONanE Wao 


MnM 
Oo NOUV UNRO 


: CLR RO.EXT TO R3.EXP 


INCR RO FROM 40 TO #6 BY #2 


Kiki 
BBE8 


ope 


RO 
$52027 
#2 -RO 


ROR 
pv 


$52030: 
$52027: 

C RO, #6 
BGT $52031 
CLR RO.EXP(RO) 


BR $52030 
$52031: 


Wathati 
BLES 


INLINE <CLR RO.EXP(RO)> 
END INC 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
132 
1 


;REPEAT OUTER LOOP FOR TEST CASES 
INLINE <$5071:> 


$5071: 
CALL CLRDSB :CLR DS BUFFERS 
055520 JSR PC, CLRDSB 


s¢ 
: LOAD DATAXX AND CC.EXP FROM TEST CASE 


LET RO := TSTCAS 

013700 TSTCAS,RO 
LET DATAOO := (RO)+ ;SRC1 LENGTH 

012037 (RO)+, DATAOO 
LET DATAO1 := (RO)+ ;POINTER TO SRC1 DATA 

012037 (RO) + ,DATAO1 
LET DATAO2 := (RO)+ 3;SRC2 LENGTH 

012037 (RO) +, DATAO2 
LET DATAO3 := (RO)+ ;POINTER TO SRC2 DATA 

012037 (RO) + ,DATAOS 
LET DATAO4 := (RO)+ ;DEST LENGTH 





on 
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012037 000570 MO (RO) + ,DATA04 
LET DATAOS := (RO)+ POINTER TO DS.EXP DATA (SUM) 

012037 000572 MO (RO) + ,DATAOS 
LET CC.EXP := (RO)+ 3CC.EXP (SUM) 

012037 000520 MO (RO)+,CC.EXP 
LET DATAOS := (RO)+ POINTER TO DS.EXP DATA (DIFF) 

012037 000572 MO (RO) +,DATAOS 
LET CC.EXP := (RO)+ sCC.EXP (DIFF) 

012037 000520 (RO) +,CC.EXP 


a> 


PACK BUFFERS FOR SRC1,SRC2, & DEST 


LET RS := #CHRSET :R5 IS OPERAND STACK FOR ROUTINE 
012705 MOV ACHRSET RS 
CALL PACK IN <#DSBUF1,DATAO1,DATAOO>  ;SRC1 
010546 R5,-(SP) 
DATAOO, -(R5) 
DATAO1 .=(R5) 
#DSBUF 1 ,-(R5) 
PC, PACK 
(SP)+,R5 


Ri 
BBB SBBES IY 


CALL PACK IN <#DSBUF 2,DATA03,DATA02> 


BESSs 


PC ,PACK 
(SP)+,R5 


R5,~(SP) 
DATA04 ,-(R5) 
DATAOS,-(R5) 
#DS .EXP,-(R5) 
PC ,PACK 
(SP)+,R5 


CALL PACK IN <ADS.EXP,DATA0S ,DATA04> 


SSC RER NT 


; LOAD GPR*S FROM DATAXX & ADD DATA TYPE 


cen LET RO := DATAOO SET.BY #60000 a ee ad 
060000 #60000.RO 


052700 
LET R1 := #DSBUF1 
012701 #DSBUF1,R1 
aeea LET R2 := DATAO2 SET.BY #60000 ahaa 
060000 #60000.R2 


052702 
LET R3 := #DSBUF2 
012703 #DSBUF 2 ,R3 
LET R4 := DATAO4 SET.BY #60000 
013704 DATA04 .R4 
052704 060000 #60000 


geceee 


Se 


eo 


IN'-WIWAIWANA 
dd ed ad ad ed ed ed cd 
WOONAUSWN—O 


WWW 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WINWWIWNIWNNWNIWWNW 


8 
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CJKDGA.P11 12-MAR-80 13:37 SEQ 0272 


046036 LET RS := #DS.DST 
046036 012705 062474 #0S.DST,R5 


FINISH SET UP & DO CIS INSTRUCTION 


LET R4.EXP := R4 

010437 R4,R4.EXP 
LET R5.EXP := R5 

010537 R5,R5.EXP 
INLINE <SUBP> 

076071 


CHECK CONDITION CODES AND GPR'S FOR CORRECT RESULTS. 


- LET CC := PSW 
013737 177776 000516 PSwW,CC 
LET CC := CC CLR.BY #177760 
042737 177760 000516 #177760,CC 
acura acinin oahu IF CC NE CC.EXP THEN 
CC,CC.EXP 
001402 $52032 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$52032: 
020037 000522 IF RO NE RO.EXP THEN 0.RO 
R ~EXP 
001402 $52033 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$52033: 
020137 000524 IF R1 NE R1.EXP THEN 
001402 R1,R1.EXP 


$52034 
CALL ERROR 
004737 056274 PC,ERROR 
ENDIF 


020237 000526 IF R2 NE R2.EXP THEN 
001402 $8 esse 


2035 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$52035: 
020337 000530 IF R3 NE R3.EXP THEN 
001202 R3,R3.EXP 


CALL ERROR $5208 
004737 056274 PC,ERROR 


ESESESSESSEESEES 
SSSSSRASSRSSSS 
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SEQ 0273 
13377 046154 ENDIF 
13378 046154 $52036: 
13379 046154 IF RG NE R4.EXP THEN 
13380 046154 020437 000532 CMP R4,R4G.EXP 
13381 046160 001402 BEQ $52037 
13382 046162 CALL ERROR 
13383 046162 004737 056274 JSR PC,ERROR 
13384 046166 ENDIF 
13385 046166 $52037: 
13386 046166 IF RS NE RS.EXP THEN 
13387 046166 020537 000534 CMP R5,R5.EXP 
13388 046172 001402 BEQ $52040 
13389 046174 CALL ERROR 
13390 046174 004737 056274 JSR PC ERROR 
13391 046200 ENDIF 
13392 046200 $52040: 
13393 
13394 
13395 i+ 
13396 : CHECK RESULTS VS EXPECTED RESULTS 
13397 c< 
13398 
13399 046200 LET RO := #DS.DST 
13400 046200 012700 062474 MOV #0S.DST,RO 
13401 046204 LET R1 := #DS.EXP 
13402 046204 012701 062536 MOV #DS.EXP,R1 
13403 046210 LET ERRFLG := #0 
13404 046210 005037 000454 CLR ERRFLG 
13405 046214 WHILE RO NE #DS.DST+40 AND ERRFLG EQ 40 DO 
13406 046214 $52041: 
13407 046214 020027 062534 CMP RO,#DS.DST+40 
13408 046220 001410 BEQ $52042 
13409 046222 005737 000454 TST ERRFLG 
13410 046226 001005 BNE $52042 
13411 046230 IFB (RO)+ NE (R1)+ THEN 
13412 046230 122021 CMPB —s._ (RO) +, (R1) + 
13413 046232 001402 BEQ $5204% 
13414 046234 CALL ERROR 
13415 046234 004737 056274 JSR PC ERROR 
13416 046240 ENDIF 
13417 046240 $52043: 
13418 046240 ENDDO 
13419 046240 000765 : BR $52041 
13420 046242 $52042: 
13421 046242 LET TSTCAS := TSTCAS + #22 
13422 046242 062737 00022 000542 ADD #22, TSTCAS 
13423 046250 LET COUNT := COUNT - #1 
13424 046250 005337 000466 DEC COUNT 
13425 sUNTIL COUNT EQ #0 
13426 046254 iF COUNT NE #0 THEN 
13427 046254 005737 000466 TST COUNT 
13428 046260 001402 BEQ $52044 
13429 046262 INLINE <JMP $5071> 
13430 046262 000137 045622 JMP $5071 
13431 046266 ENDIF 
13432 046266 $52044: 
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ee 
wy 


BIKAR 


INLINE CASE = SUBPI, USING UNSIGNED PACKED DATA 


CLRDSB 
055520 PC,CLRDSB 


LOAD DATAXX AND CC.EXP FROM TEST CASE 


RO := #TADD+2 

012700 #TADD+2,RO 
DATAOO := (RO)+ ;SRC1 LENGTH 

012037 (RO) + ,DATAOO 
DATAO1 := (RO)+ :POINTER TO SRC1 DATA 

012037 (RO) +,DATAO1 
DATAO2 := (RO)+ zSRC2 LENGTH 

012037 (RO) +,DATAOD2 
DATAO3 := (RO)+ sPOINTER TO SRC2 DATA 

012037 (RO) + ,DATAOS 
DATAO4 := (RO)+ DEST LENGTH 

012037 (RO) + ,DATA04 
DATAOS := (RO)+ z:POINTER TO DS.EXP DATA (SUM) 

012037 MO (RO) +, DATAOS 


CC.EXP := (RO)+ 
012037 MOV (RO)+,CC.EXP 
DATAOS := (RO)+ sPOINTER TO DS.EXP DATA (DIFFERENCE) 
012037 MOV (RO) + ,DATAOS 


¥EE 
& 


EER 


eevee 
won 


PACK BUFFERS FOR SRC1,SRC2, & DEST 


SARERSS 


LET R5 := #CHRSET 3R5 IS OPERAND STACK FOR ROUTINE 
012705 MOV #CHRSET RS 
010546 CALL PACK IN <ADSBUF1,DATAO1,DATAOO> ;SRC1 


be8 


PC ,PACK 
(SP)+,R5 
CALL PACK IN <#DSBUF2,DATA03,DATA02> 


FEFELESESE 
BBIRARANIS 


PC ,PACK 
(SP)+,R5 


RRS 


CALL PACK IN <ADS.EXP,DATAOS ,DATA04> 


5 


RS .~(SP) 

DATA04 ,~(R5) 
DATAOS ,=(R5) 
#DS .EXP,-(R5) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


REE 
SUE 





E 6 
CJKDGA, KEF11-B CIS DIAGNOSTIC MACY11 30A(1052) 14-MAR=80 08:04 PAGE 259 
CJKDGA.P11 12-MAR-80 13:37 SUBP 


004737 055646 PC ,PACK 
012605 (SF)+,R5 
CALL CLRREG ;ENSURE GPR'S 0-5 ARE ZERO 
004737 055330 J PC, CLRREG 
INLINE <SUBPI> 
076171 


INLINE <.WORD TADDPI> 

064066 -WORD TADDPI 
INLINE <.WORD TADDP]+4> 

064072 ~WORD TADDPI+4 
INLINE <.WORD TADDP]+10> 

064076 -WORD TADDPI+10 
LET CC := PSwW 

013737 177776 PSW,CC 
LET CC := CC CLR.BY #177760 

042737 177760 #177760,CC 


IF CC NE #0 THEN 
005737 000516 cc 
001402 BEQ  $52045 
CALL ERROR 
004737 056274 PC ,ERROR 
ENDIF 


+ 
: ENSURE GPR'S STILL ZERO 


IF RO NE #0 OR R1 NE #0 OR R2 NE #0 THEN - 
$52046 
R1 
| 
$52047 


$52046: 
CALL ERROR 
056274 PC ,ERROR 


ENDIF 
$52047: 
IF R3 NE #0 OR R4 NE #0 OR RS NE #0 THEN 


Nm 
NeERRAVLS 


CUSSS 


R3 
$52050 
R4 
522050 
$52051 


$52050: 
CALL ERROR 
056274 PC,ERROR 


ENDIF 
$52051: 


CHECK RESULTS 





F 6 
CJKDGA, KEF11-8 CIS ok AGNOSTIC MACY11 30A(1052) 14-MAR=80 08:04 PAGE 260 


CJKDGA.P11 — 12=MAR=80 13:37 SUBP SEQ 0276 
13545 

13546 046540 LET RO := #DS.DST 

13547 046540 012700 062474 MOV #D0S.DST,RO 
13548 046544 LET R1 := #DS.EXP sEXPECTED DATA 

13549 046544 012701 062536 MOV #DS.EXP,R1 
13550 046550 LET R2 := TADDPI+10 CLR.BY #70000 :GET STRING LENGTH 

13551 046550 013702 064076 MOV TADDP1+10,R2 
13552 046554 042702 070000 BIC #70000 ,R2 
13553 046560 INLINE <ASR  R2> ZLENGTH/2 (PACKING FACTOR) 

13554 046560 006202 ASR R2 

13555 046562 LET R2 := R2 + #DS.EXP :R2 POINTS TO MSD/SIGN 

13556 046562 062702 062536 ADD #DS.EXP,R2 
13557 046566 LET (R2) :B= (R2) SET.BY #17 :MAKE IT UNSIGNED 

13558 046566 152712 000017 BISB =: #17, (R2) 
13559 046572 LET ERRFLG := #0 

13560 046572 005037 000454 CLR ERRFLG 
13561 046576 WHILE RO NE #DS.DST+37 AND ERRFLG EQ #0 DO 

13562 046576 $52052: 

13563 046576 020027 062533 CMP RO, ADS .DST+37 
13564 046602 001410 BEQ $52053 
13565 046604 005737 000454 TST ERRFLG 
13566 046610 001005 BNE $52053 
13567 046612 IFB (RO)+ NE (R1)+ THEN 

13568 046612 122021 CMPB —s- (RO) +, (R1) + 
13569 046614 001402 BEQ $52054 
13570 046616 CALL ERROR 

13571 046616 004737 056274 JSR PC ERROR 
13572 046622 ENDIF 

13573 046622 $52054: 

13574 046622 ENDDO 

13575 046622 000765 BR $52052 
13576 046624 $52053: 

13577 

13578 
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SEQ 0277 
13579 .SBTTL CMPP 
13580 FARRAR EAE ERE EEE EAE ERRATA EEE ER EH 
13581 3 
13286 ; CMPP TEST 
13584 ItTit iti iiiiii titi itittt iit itiiitititititititi tii itittt titi tits 
13585 
3586 046624 INLINE <XCMPP:> 
13587 046624 XCMPP 
13588 046624 INLINE <SCOPE> 
13589 046624 000004 SCOPE 
13590 046626 LET $STIMES := #20 ; ITERATION COUNT 
13591 046626 012737 000020 000404 MOV #20, $TIMES 
13592 046634 LET COUNT := TCMP iGET TEST COUNT 
13593 046634 013737 062576 000466 MOV TCMP , COUNT 
13594 046642 LET TSTCAS := #TCMP+2 sPOINT TO FIRST TEST CASE 
13595 046642 012737 062600 000542 MOV #TCMP+2,TSTCAS 
13596 sREPEAT 
13597 046650 INLINE <$5072:> 
13598 046650 $5072: 
13599 046650 CALL CLRDSB 
13600 046650 004737 055520 JSR PC, CLRDSB 
13601 046654 LET CC.EXP := #0 
13602 046654 005037 000520 CLR CC.EXP 
13603 046660 LET SIGNO := 40 
13604 046660 005037 000446 CLR SIGNO 
13605 046664 LET DATTYP := 40 
13606 046664 005037 000462 CLR DATTYP 
13607 
13608 3* 
13609 ; GET SOURCE DESCRIPTORS FROM TABLE 
13610 := 
13611 
13612 046670 LET RO := TSTCAS 
13613 046670 013700 000542 MOV TSTCAS,RO 
13614 046674 LET DATAOO := (RO)+ 7SRC1 LENGTH 
13615 046674 012037 000560 MOV (RO) +, DATAOO 
13616 046700 LET DATAO1 := (RQ)+ :SRC1 POINTER 
13617 046700 012037 000562 MOV (RO) +,DATAO1 
13618 046704 LET DATAO2 := (RO)+ :SRC2 LENGTH 
13619 046°04 012037 000564 MOV (RO)+,DATAO2 
13620 046710 LET DATAO3 := (RO) :SRC2 POINTER 
: $053 046710 011037 000566 MOV (RO) ,DATAO3 
13623 s¢ 
13624 ; LOAD SRC1 AND SRC2 INTO DSBUF1 AND DSBUF2 
13625 : IN NON-PACKED FORMAT, FOR NOW. 
13626 77 
13627 
13628 046714 LET R2 := DATAO1 + #2 :GET SRC1 ADDRESS 
13629 046714 013702 000562 MOV DATAO1,R2 
13630 046720 062702 000002 ADD #2,R2 
13631 046724 LET R3 := ADSBUF1 
13632 046724 012703 062370 MOV #DSBUF 1,R3 
13633 046 LET DSTMPO :B= (R2) ;SAVE SRC1 MSD 
13634 046730 111237 000552 MOVB (R2) ,.DSTMPO 
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013701 000560 DECR R1 FROM DATAOO TO #0 BY #1 patadd it 
A . 
000401 BR 


$52055 
$52056: 


005301 . R1 
005701 $52055: 


R1 
002402 $52057 
LET (R3)+ :B= (R2)+ 
112223 (R2)+,(R3)+ 
ENDDEC 
000773 $52056 


$52057: 
LET DSTMP1 :B= -(R2) ;SAVE SRC1 LSD 
114237 -(R2) ,DSTMP1 
LET R2 := DATAOS + #2 GET SRC2 ADDRESS 
013702 DATAO3,R2 
062702 000002 #2,R2 
LET R3 := ADSBUF2 
012703 #DSBUF 2 ,R3 
LET DSTMP2 :B= (R2) ;SAVE SRC2 MSD 
111237 (R2) ,.DSTMP2 
013701 DECR R1 FROM DATAO2 TO #0 BY #1 02.A1 
DATA02,.R 
000401 BR $52060 


005301 RI 


005701 RI 
002402 $52062 
LET (R3)+ :B= (R2)+ 
112223 (R2)+, (R3)+ 
ENDDEC 
000773 BR $52061 


LET DSTMP3 :B= -(R2) SAVE SRC2 LSD wageee 
114237 ° g ~(R2) ,DSTMP3 


+ 
: COMPARE SRC1 AND SRC2, AND SET N AND Z BITS 
: IN CC.EXP ACCORDINGLY. 


IF DATAOO EQ #0 AND DATAO2 EQ #0 THEN :SRC1 LENGTH AND SRC2 LENGTH = 0 
005737 TST DATAOO 


001007 BNE $52063 
005737 TST DATAO2 
aie LET CC.EXP := CC.EXP SET.BY #ZBIT = wenn 
052737 : q Z ‘ BIS #7BIT.CC.EXP 


ELSE 
000424 BR $52064 


$52063: 
IF DATAOO EQ #0 AND @DATAO3 EQ #0 THEN ;SRC1 LENGTH = 0 AND SRC2 SIGN IS + 
TST DATAOO 


BORSREREE SSNS Swan vou e a ROR EcuoURm TSR SR EAR SR enameee 


i 


1 
1 
1 
1 
1 
1 
1 
1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


005737 
001007 


& 
8 
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005777 131504 1ST @DATAOS 
001004 BNE 


$52065 
LET CC.EXP := CC.EXP SET.BY #NBIT 
052737 000010 ELSE BIS ANBIT,CC.EXP 
000412 BR $52066 


$52065: 
IF DATAQ2 EQ #0 AND @DATA01 EQ #=-1 THEN ;SRC2 LENGTH = 0 & SRC1 SIGN IS - 
005737 000564 TST DATAO2 
001007 BNE $52067 
027727 131454 177777 CMP @DATA01 , 4-1 
001003 BNE $52067 
LET CC.EXP := CC.EXP SET.BY ANBIT 
052737 000010 009520 aap BIS ANBIT,CC.EXP 
$52067: 


ENDIF atte 
ENDIF ; 


$52064: 
IF DATAOO NE #0 AND DATAO2 NE #0 THEN ;SRC1 LENGTH AND SRC2 LENGTH > 0 
000560 eit DATAOO 


000564 TST 


BEQ $52070 
IF @DATAO1 NE @DATAO3S THEN :SRC1 SIGN AND SRC2 SIGN ARE DIFFERENT 
027777 131422 131424 CMP @DATA01 ,@DATA0S 
001410 BEQ $52071 
IF @DATAO1 EQ #-1 THEN :SRC1 SIGN IS - 
027727 131412 177777 CMP @DATAO1 4-1 
001003 $52072 


BNE 
LET CC.EXP := CC.EXP SET.BY #NBIT 
052737 000010 000520 — BIS #NBIT,CC.EXP 


$52072: 
ELSE :SRC1 SIGN AND SRC2 SIGN ARE EQUAL 
BR $52073 


389 


NNNNNNNNNGWG 
ee ed ed ed ad ad ad ed ed 


| 
PVN 


he 
) 
RON 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WWNWWWWWWWNWNWWWWAWAWNWWNWW 


000501 


$52071: 
LET SIGNO := @DATAO1 SAVE THE COMMON SIGN 
017737 131372 MOV @DATA01 ,SIGNO 
IF DATAOO LO DATAO2 AND SIGNO EQ #0 THEN zSRC1 LENGTH < SRC2 LENGTH ino SIGNS 
Bg os a le 
008737 000446 TST 
001004 BNE 


SIGNO 
$52074 
LET CC.EXP := CC.EXP SET.BY #NBIT 
052737 000010 “age BIS #NBIT.CC.EXP 
000413 BR $52075 


$52074: 
IF DATAOO HI DATAO2 AND SIGNO EQ #-1 THEN :SRC1 LENGTH > SRC2 LENGTH AND 
023737 CMP DATAOO ,DATAO2 
093959 177777 cee 
001003 : 


$52076 
LET CC.EXP := CC.EXP SET.BY #NBIT 
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peesee 052737 000010 000520 BIS #NBIT,CC.EXP 


ENDIF 
$52076: 
ENDIF 


$52075: 
IF DATAOO EQ DATAO2 THEN :SRC1 LENGTH “ LENGTH ARE EQUAL 


023737 DATAOO ,DATAO2 
001044 BNE $52077 


$+ 
; COMPARE SRC1 AND SRC2 BYTE BY BYTE 


LET RO := DATAOO :SRC BUFFER LENGTH 

013700 MOV DATAOO ,RO 
LET R1 := #DSBUF1 :SRC1 BUFFER 

012701 #DSBUF 1 ,R1 
LET R2 := #DSBUF2 :SRC2 BUFFER 

012702 #DSBUF 2 ,R2 
WHILEB RO NE #0 AND (R1)+ EQ (R2)+ DO 

$52100: ’ 


105700 
001404 $52101 
022122 (R1)+, (R2)+ 
001002 BNE $52101 
LET RO :DECREMENT COUNTER 
005300 DEC RO 
ENDDO 
000772 $52100 
$52101: 
IFB -(R1) NE =(R2) THEN ;SOURCES WERE NOT = 
124142 -(R1) ,-(R2) 
001423 $52102 
IFB (R1) LO (R2) AND SIGNO EQ #0 THEN 
121112 (R1), (R2) 
103007 $5 


005737 2163 
001004 


S1GNO 
$52103 


LET CC.EXP := CC.EXP SET.BY #NBIT 

052737 ANBIT,.CC.EXP 
ELSE 
000411 $52104 
$52103: 

IFB (R1) HI (R2) AND SIGNO EQ #-1 THEN 
121112 MPB (R11), (R2) 
bo3te7 177777 sete 

S1GNO,#- 

001003 BNE $52105 


LET CC.EXP := CC.EXP SET.BY #NBIT 
052737 000520 #NBIT.CC.EXP 


ENDIF 
$52105: 


ENDIF 
$52104: 
ELSE SOURCES WERE EQUAL 


a 
BeEeeess 
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$52102: 
052737 000004 000520 sane conte cing. se inchipoertl acer BIS #7BIT,CC.EXP 

$52106: 

$52077: 

$52073: 

$52070: 


eecsere 


i+ 
; PERFORM THE CMPP INSTRUCTION WITH THE SIGNED 
: PACKED DATA TYPE. (UNSIGNED PACKED WILL BE 


a aa cad a cl on od 
WONAUSWN—O 


TESTED _IN THE INLINE PORTION OF THE TEST). 
; CHECK THE RESULTS AND REPORT ANY ERRORS. 


8 Bo Bo 00 83 80 Bo Bo bo So 


—— 


CALL CLRDSB 

JSR PC,CLRDSB 
;LOAD DSBUF1 WITH SRC1 DECIMAL STRING AND SIGN, IN PACKED FORMAT. 
LET R #DSBUF 1 


004737 055520 


URW 


012700 062370 #DSBUF 1 ,RO 
013701 000562 eae ee DATAO1,R1 
062701 000002 #2,R1 
013702 000560 LET R2 := DATAOO DECIMAL STRING LENGTH = patago.R2 
005702 IF R2 EQ #0 THEN LENGTH = 0 


R2 
bis IF @DATAO1 EQ #0 THEN ;SIGN IS + cant Cetin 
005777 131140 


@DATAQ1 
001003 $52110 
LET (RO) :B= #14 
112710 000014 ne #14, (RO) 
000402 BR $52111 


LET (RO) :B= series 
112710 ; #15, (RO) 


ENDIF 
~— $52111: 
000434 BR $52112 
$52107: 
IF #BITOO NOTSETIN R2 THEN’ ;LENGTH IS EVEN AND > 0 
032702 BIT #BITOO,R2 
001002 BNE 


$52113 
LET (RO)+ :B= (R1)+ :MOVE THE EVEN NIBBLE 
sacinen LET R2 := R2 - #1 DECREMENT COUNTER a 
005302 ee , . v R2 


ENDIF 
$52113: 


em 


Gein 


% 
ae 


EESEPEREESE 


838 65 85 8 85 86 
ARWN=OO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
13831 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


So 838 
SNS 
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13859 047452 WHILE R2 NE #1 DO 

13860 047452 $52114: 

13861 047452 020227 000001 CMP R2,#1 
13862 047456 001410 BEQ $52115 
13863 047460 LET R3 :B= (R1)+ ;GET A BCD 

13864 047460 112103 MOVB = (R1)+,R3 
13865 047462 INLINE <ASH #4,R3> ;SHIFT IT TO THE HIGH NIBBLE 

13866 047462 072327 000004 ASH #4,R3 
13867 047466 LET R3 :B= R3 SET.BY (R1)+ ;PUT NEXT BCD INTO LOWER NIBBLE 
13868 047466 152103 BISB. = (R1) +, R3 
13869 047470 LET (RO)+ :B= R3 

13870 047470 110320 MOVB = R3, (RO) + 
13871 047472 LET R2 := R2 = #2 ;DECREMENT COUNTER 

13872 047472 162702 000002 SUB #2,R2 
13873 047476 ENDDO 

13874 047476 000765 BR $52114 
13875 047500 $52115: 

13876 047500 LET R3 :B= (R1) :GET LAST BCD 

13877 047500 111103 MOVB (R1),R3 
13878 047502 INLINE <ASH #4,R3> 

13879 047502 072327 000004 ASH #4,R3 
13880 047506 IF @DATAO1 EQ #0 THEN ;SIGN IS + 

13881 047506 005777 131050 TST @DATAO1 
13882 047512 001003 BNE $52116 
13883 047514 LET R3 :B= R3 SET.BY #14 

13884 047514 152703 000014 BISB = #14, R3 
13885 047520 ELSE :SIGN IS - 

13886 047520 000402 BR $52117 
13887 047522 $52116: 

13888 047522 LET R3 :B= R3 SET.BY #15 

13889 047522 152703 000015 BISB #15.R3 
13890 047526 ENDIF 

13891 047526 $52117: 

13892 047526 LET (RO) :B= R3 ;PUT MSD AND SIGN INTO THE BUFFER 

13893 047526 110310 MOVB R3,(RO) 
13894 047530 ENDIF 

13895 047530 $52112: 

13896 ;LOAD DSBUF2 WITH SRC2 DECIMAL STRING AND SIGN, IN PACKED FORMAT. 

13897 047530 LET RO := #DSBUF2 

13898 047530 012700 062432 MOV #DSBUF 2,RO 
13899 047534 LET R1 := DATAO3 + #2 

13900 047534 013701 000566 MOV DATAO3,R1 
13901 047540 062701 000002 ADD #2,R1 
13902 047544 LET R2 := DATAO2 :DECIMAL STRING LENGTH 

13903 047544 013702 000564 MOV DATAO2,R2 
13904 047550 IF R2 EQ #0 THEN :LENGTH = 0 

13905 047550 005702 TST R2 
13906 047552 001011 BNE $52120 
13907 047554 IF @DATAO3S EQ #0 THEN sSIGN IS + 

13908 047554 005777 131006 TST @DATAO3 
13909 047560 001003 BNE $52121 
13910 047562 LET (RO) :B= #14 

13911 047562 112710 000014 MOVB = #14, (RO) 
13912 047566 ELSE :SIGN IS - 

13913 047566 000402 BR $52122 
13914 047570 $52121: 
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LET (RO) :B= #15 
112710 000015 MOVB #15, (RO) 


ENDIF 
$52122: 
ELSE 
000434 ar $52123 
$52120: 
IF #BITOO NOTSETIN R2 THEN’ ;LENGTH IS EVEN AND > 0 
032702 BI #B1T00,R2 
001002 BNE 


$52124 
LET (RO)+ :B= (R1)+ MOVE THE EVEN NIBBLE 
112120 MO’ (R1)+, (RO) + 
LET R2 := R2 - #1 :DECREMENT COUNTER 
005302 R2 


ENDIF 

$52124: 
WHILE R2 NE #1 DO 

$52125: 


020227 C R2,41 

001410 BEQ $52126 
LET R3 :B= (R1)+ :GET A BCD 

112103 MOVB = (R1)+,R3 
INLINE <ASH #4,R3> :SHIFT IT TO THE HIGH NIBBLE 

072327 ASH #4,R3 
LET R3 :B= R3 SET.BY (R1)+ :PUT NEXT BCD INTO POWER NIBBLE 

152103 BISB.  (R1)+,R3 
LET (RO)+ :B= R3 

110320 MOVB _—R3, (RO) + 
LET R2 := R2 = #2 ;DECREMENT COUNTER 

162702 SUB #2,R2 

ENDDO 
000765 BR $52125 


$52126: 
LET R3 :B= (R1) 
111103 MOVB (R1),R3 
INLINE <ASH #4,R3> 
072327 ASH #4,R3 
IF @DATAO3 EQ #0 THEN ZSIGN IS + 
005777 TST @DATAO3 
001003 BNE $52127 
LET R3 :B= R3 SET.BY 414 
152703 ine BISB #14, R3 
000402 BR $52130 


$52127: 
LET R35 :B= R3 SET.BY #15 
152703 BISB #15,R3 
ENDIF 


$52130: 
LET (RO) :B= R3 :PUT MSD AND SIGN INTO THE BUFFER 
110310 MOVB R3, (RO) 


ENDIF 
$52123: 


2+ 
; LOAD THE GPR'S AND DO THE CMPP INSTRUCTION 
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LET RO := #60000 SET.BY DATAOO ;SRC1.DSCR 
012700 


060000 #60000 ,RO 
053700 DATAOO,,RO 
LET R1 := #DSBUF1 Pigs 
012701 #DSBUF 1 ,R1 
LET R2 := #60000 SET.BY DATAO2 ;SRC2.DSCR 
012702 


060000 #60000 ,R2 

053702 DATAO02 ,R2 
LET R3 := #DSBUF2 or 

012703 #DSBUF 2,R3 
LET R4 := 40 

005004 R4 
LET RS := #0 

005005 RS 
INLINE <CMPP> 

076072 


s¢ 

; CHECK THE RESULTS AND REPORT ANY ERRORS 
LET CC := PSW 

013737 177776 PSW.CC 
LET CC := CC CLR.BY #177760 

042737 177760 #177760,CC 
IF CC NE CC.EXP THEN 

023737 000516 CC,CC.EXP 

001402 


$52131 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$52131: 
IF RO NE #0 OR R1 NE 40 OR R2 NE #0 THEN 


RO 

Sxe15e 
$52132 
$52133 


$5213: 
CALL ERROR 
056274 PC ERROR 


ENDIF 
$52133: 
IF R3 NE #0 OR R4 NE #0 OR RS NE 40 THEN 


R3 
$52134 
R4 
$2215 
$52135 


CALL ERROR 
056274 PC ,ERROR 
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14027 050014 ENDIF 
14028 050014 $52135: 
14029 050014 LET TSTCAS := TSTCAS + #10 
14030 050014 062737 000010 000542 ADD #10, TSTCAS 
14031 050022 LET COUNT := COUNT - #1 
14032 050022 005337 000466 DEC COUNT 
14033 sUNTIL COUNT EQ #0 
14034 050026 iF COUNT NE #0 THEN 
14035 050026 005737 000466 TST COUNT 
14036 050032 001402 BEQ $52136 
14037 050034 INLINE <JMP $5072> 
14038 050034 000137 046650 JMP $5072 
14039 050040 ENDIF 
14040 050040 $52136: 
14041 
14042 
14043 
14044 26 
tenes ; DO ONE INLINE CASE - CMPPI. USE UNSIGNED PACKED DATA TYPE. 
14047 
14048 050040 LET RO := #-1 
14049 050040 012700 177777 MOV #-1,RO 
14050 050044 LET R1 := #1 
14051 050044 012701 177777 MOV #-1,R1 
14052 050050 LET R2 := #1 
14053 050050 012702 177777 MOV #-1,R2 
14054 050054 LET R3 := #-1 
14055 050054 012703 177777 MOV #-1,R3 
14056 050060 LET RG := #-1 
14057 050060 012704 177777 MOV #-1,R4G 
14058 050064 LET RS := #1 
14059 050064 012705 177777 MOV #-1,R5 
14060 050070 INLINE <CMPPI> 
14061 050070 076172 CMPP] 
14062 050072 INLINE <.WORD TCMPPI> 
14063 050072 050206 .WORD TCMPP] 
14064 050074 INLINE <.WORD TCMPPI+4> 
14065 050074 050212 .WORD TCMPPI+4 
14066 050076 LET CC := PSW 
14067 050076 013737 177776 000516 MOV Psw,CC 
14068 050104 LET CC := CC CLR.BY #177760 
14069 050104 042737 177760 000516 BIC #177760,CC 
14070 050112 IF CC NE #4 THEN 
14071 050112 023727 000516 000004 CMP CCA 
14072 050120 001402 BEQ $52137 
14073 050122 CALL ERROR 
14074 050122 004737 056274 JSR PC ERROR 
14075 050126 ENDIF 
14076 050126 $52137: 
14077 050126 IF RO NE 4-1 OR R1 NE #-1 OR R2 NE #-1 THEN 
14078 050126 020027 177777 CMP RO, #~1 
14079 050132 001006 BNE $52140 
14080 050134 020127 177777 CMP R141 

001003 BNE $52140 


14081 050140 
14082 050142 020227 177777 (MP ORD A= 


 ¢ 
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panies 001402 $52141 


$52140: 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$52141: 
IF R3 NE #-1 OR R4 NE #=-1 OR R5 NE #1 THEN 
020327 177777 
001006 


020427 177777 
001003 


020527 177777 ae pet 
001402 $52143 


$52142: 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$52143: 
INLINE <JMP XASHP> 
050202 000137 050222 JMP XASHP 


TEST CASE 


070005 070005 :SRC1 DATA TYPE = UNSIGNED PACKED, LENGTH 

050216 ° :SRC1.DSCR 

070005 . :SRC2 DATA TYPE = UNSIGNED PACKED, LENGTH 
050214 050216 ;SRC2.DSCR 


050216 064 137 CMPPI1: : 022,064,137 PACKED DECIMAL STRING = 12345 


07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 


022 
050222 
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SEQ 0287 
14118 ~SBTTL ASHP 
14119 FI TRI TT I TT TT TT TTT ITT TTT TTR RR RR ER 
14120 ; 
eis) ; ASHP TEST 
14123 PITIIIIIITITITITITTITI TI TiTiTiTiTiTitititilitiitiTiTTLLTLTT TT eiiy 
14124 , 
14125 050222 INLINE <XASHP:> 
14126 050222 XASHP : 
14127 050222 INLINE <SCOPE> 
14128 050222 000004 SCOPE 
14129 050224 LET $STIMES := #20 : ITERATION COUNT 
14130 050224 012737 000020 000404 MOV #20,$TIMES 
14131 050232 LET COUNT := TASH ;GET TEST COUNT 
14132 050232 013737 063044 000466 MOV TASH, COUNT 
14133 050240 LET TSTCAS := #TASH+2 zPOINT TO FIRST TEST CASE 
14134 050240 012737 063046 000542 MOV MTASH+2, TSTCAS 
14135 050246 LET SIGNO := #0 ; 'NITIALIZE THE SIGN WORD 
14136 050246 005037 000446 CLR SIGNO 
14137 ;REPEAT 
14138 050252 INLINE <$5076:> 
14139 050252 $5076: 
14140 050252 CALL CLRDSB ;CLEAR DECIMAL STRING BUFFERS 
14141 050252 004737 055520 JSR PC,CLRDSB 
14142 050256 LET CC.EXP := #0 
14143 050256 005037 000520 CLR CC.EXP 
14144 
14145 i+ 
14146 ; GET TEST DATA FROM TABLE 
14147 :- 
14148 
14149 050262 LET RO := TSTCAS 
14150 050262 013700 000542 MOV TSTCAS RO 
14151 050266 LET DATAOO := (RO)+ :SRC LENGTH 
14152 050266 012037 000560 MOV (RO) + ,DATAOO 
14153 050272 LET DATAO1 := (RO)+ ;DST LENGTH 
14154 050272 012037 000562 MOV (RO) +,DATAO1 
14155 050276 LET DATAO2 := (RO) ;SHIFT DSCR. 
is 050276 011037 000564 MOV (RO) ,DATAO2? 
14158 i+ 
14159 :* 
14160 ; PUT THE TEST STRING INTO DSBUI 1 IN SIGNED PACKED FORMAT. INCLUDE 
14161 ; THE SIGN. 
14162 jo 
14163 
14164 050302 LET RO := #DSBUF1 
14165 050302 012700 062370 MOV #DSBUF 1 ,RO 
14166 050306 LET R1 := DATAOO 
14167 050306 013701 000560 MOV DATAOO,R1 
14168 050312 IF R1 EQ #0 THEN 7SRC.LEN = 0 
14169 050312 005701 TST R1 
14170 050314 001011 ' BNE $52144 
14171 050316 IF SIGNO EQ #0 THEN :SIGN IS + 
14172 050316 005737 000446 TST 


S1GNO 
14173 050322 001003 BNE $52145 


. £ 
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4174 050324 LET (RO) :B= #14 

75 050324 112710 000014 MOVB #14, (RO) 
050330 ELSE :SIGN IS - 
050330 000402 BR $52146 
050332 $52145: 
050332 LET (RO) :B= #15 
050332 112710 000015 MOVB #15, (RO) 
050336 ENDIF 
050336 $52146: 
050336 ELSE 
050336 000426 BR $52147 


76 

78 

79 

80 

81 

82 

83 

84 

85 $52144: 

86 050340 IF #BITOO NOTSETIN R1 THEN 7SRC.LEN IS EVEN AND > 0 
87 050340 032701 000001 BIT #B1T00,R1 
88 001003 $521 
89 

90 

94 

92 

93 

94 

95 

96 

97 

98 


SEQ 0288 


050344 BNE 50 

050346 LET (RO)+ :B= #4 

050346 112720 000004 MOVB #4,(RO)+ 

050352 LET R1 := R17 = #1 :DECREMENT COUNT 

050352 005301 DEC R1 

050354 ENDIF 

050354 $52150: 

050354 WHILE R1 NE #1 DO 

050354 $52151: 
050354 020127 000001 R1,41 
050360 001405 BEQ $52152 

14199 050362 LET (RO)+ :B= #104 ;MOVE TWO NIBBLES OF BCD 

14200 050362 112720 000104 MOVB «#104, (RO) + 

14201 050366 LET R1 :=R1 = #2 :DECREMENT COUNT 

14202 050366 162701 000002 SUB #2,R1 

14203 050372 ENDDO 

14204 050372 000770 BR $52151 

14205 050374 $52152: 

14206 050374 IF SIGNO EQ #0 THEN ;SIGN IS + 

14207 050374 005737 000446 TST SIGNO 

14208 050400 001003 BNE $52153 

14209 050402 LET (RO) :B= #114 

14210 050402 112710 000114 MOVB =: #114, (RO) 

14211 050406 ELSE :SIGN IS - 

14212 050406 000402 BR $52154 

14213 050410 $52153: 

14214 050410 LET (RO) :B= #115 

14215 050410 112710 000115 MOVB = #115, (RO) 

14216 050414 ENDIF 

14217 050414 $52154: 

14218 050414 ENDIF 

14219 050414 $52147: 


i+ 
10565 ; LOAD DS.EXP AND CC.EXP WITH EXPECTED RESULTS. 


14225 :GET SHIFT COUNT MAGNITUDE AND PUT IT INTO TEMPO. 


14227 050414 LET TEMPO := DATAO2 
54 050414 013737 000564 000474 


MOV DATAQ2 , TEMPO 
050422 IF #BITO7 SETIN TEMPO THEN NEGATIVE SHIFT COUNT 


oe 
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14230 J50422 032737 000200 000474 6iT #817107, TEMPO 
14231 050430 001402 BEQ $52155 
14232 050432 LET TEMPO := NEGATE TEMPO 
14233 050432 005437 000474 NEG TEMPO 
14234 050436 ENDIF 
14235 050436 $52155: 

14236 050436 LET TEMPO := TEMPO CLR.BY #177600 

Wp 050436 042737 177600 000474 BIC #177600, TEMPO 
ng tH ; TAKE CARE OF EXPECTED NBIT 

14241 050444 IF SIGNO EQ #-1 AND DATAOO NE 40 THEN 

14242 050444 023727 000446 177777 CMP SIGNO,4#=1 
14243 050452 001006 BNE $52156 
14244 050454 005737 000560 TST DATAOO 
14245 050460 001403 BEQ $52156 
14246 050462 LET CC.EXP := CC.EXP SET.BY ANBIT 

14247 050462 052737 000010 000520 BIS ANBIT,CC.EXP 
14248 050470 ENDIF 

ASS) 050470 $52156: 

ash PUT THE SIGN NIBBLE INTO THE EXPECTED DESTINATION 

14253 050470 LET R1 := DATAO1 :DST.LEN 

14254 050470 013701 000562 MOV DATAO1,R1 
14255 050474 INLINE <ASR_ R1> 

14256 050474 006201 ASR R1 

14257 050476 LET R71 := R1 + #DS.EXP 

14258 050476 062701 062536 ADD #OS.EXP,R1 
14259 050502 IF SIGNO EQ #0 OR DATAOO EQ 40 THEN 

14260 050502 005737 000446 TST 

14261 050506 001403 BEQ $52157 
14262 050510 005737 000560 TST DATAOO 
14263 050514 001003 BNE $52160 
14264 050516 $52157: 

14265 050516 LET (R1) :B= (R1) SET.BY #14 POSITIVE SIGN 

14266 050516 152711 000014 BISB #14,(R1) 
14267 050522 ELSE 

14268 050522 000402 BR $52161 
14269 050524 $52160: 

14270 050524 LET (R1) :B= (R1) SET.BY #15 NEGATIVE SIGN 

14271 050524 152711 000015 BISB #15,(R1) 
14272 050530 ENDIF 

ios? 050530 $52161: 

rg ted ; TAKE CARE OF ZERO LENGTH SOURCE OR DESTINATION 

14277 050530 IF DATAOO EQ #0 OR DATAO1 EQ #0 THEN 

14278 050530 005737 000560 TST DATAOO 
14279 050534 001403 BEQ $52162 
14280 050536 005737 000562 TST DATAO1 
14281 050542 001003 BNE $52163 
14282 050544 $52162: 

14283 050544 LET CC.EXP := CC.EXP SET.BY #ZBIT 

14284 05054 


4 052737 000004 000520 BIS #Z7BIT,CC.EXP 
14285 050552 ENDIF J 
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14309 


ee ed ed ed ed ad aed ed 
BRRREKKRREL 
WWWNWWWNWWW 
and aud cx aah an anh end eat on 
CONAUSWN—O 


14319 
1 


050552 


050566 
050574 


050576 
050576 
0602 


050710 


013700 
163700 


013701 
006201 
062701 
012702 
013703 
01024 
023727 
103403 
152711 
000415 


052737 
042737 
013705 
006205 
062705 
142715 


005700 
002015 
052737 


C 


000560 
000562 
000200 


000560 
000474 


000562 


062536 
000001 
000562 


000564 


000020 


000004 
000010 
000562 


062536 
000001 


000004 
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000564 


003000 


000520 
000520 


000520 


TAKE CARE OF NEGATIVE SHIFT 
LET RO := DATAOO - TEMPO 


LET R1 := DATAO1 
INLINE <ASR_ R1> 

LET R1 := R1 + #DS.EXP 
LET R2 := #1 

LET R3 := DATAO1 


IF RO EQ #0 THEN 


IF DATAO2 HIS #3000 THEN 


LET (R1) 
ELSE 


:B= (R1) SET.BY #20 


$52163: 
IF DATAOO NE #0 AND DATAO1 NE #0 AND #BITO7 SETIN DATAO2 THEN 


7SRC.LEN = SHIFT COUNT 


:DST.LEN 


LET CC.EXP := CC.EXP SET.BY #ZBIT 
LET CC.EXP := CC.EXP CLR.BY ANBIT 


LET R5 := DATAO1 
INLINE <ASR_ R5> 
LET RS := R5 + #DS.EXP 
LET (R5) :B= (R5) CLR.BY #1 
ENDIF 
ENDIF 
IF RO LT #0 THEN 


LET CC.EXP 


:= CC.EXP SET.BY #ZBIT 


= RGUND ING 


BR 
$52166: 


$52167: 
$52165: 


R1 


SEQ 0290 ( 


$52164 
#81707 ,DATAO2 
$52164 


DATAOO ,RO 
TEMPO ,RO 


DATAO1,R1 


#DS.EXP,R1 
#1,R2 
DATAO1 ,R3 


RO 

$52165 
DATAO2 , #3000 
$52166 
#20,(R1) 
$52167 


#ZBIT,CC.EXP 
#NBIT,CC.EXP 
DATAO1.R5 


#DS.EXP,R5 
#1,(R5) 


RO 
$52170 
#Z7BIT,CC.EXP 
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14342 050716 LET CC.EXP := CC.EXP CLR.BY #NBIT 

14343 050716 042737 000010 000520 BIC #NBIT,CC.EXP 
14344 050724 LET RS := DATAO1 

14345 050724 013705 000562 MOV DATAO1,R5 
14346 050730 INLINE <ASR_ R5> 

14347 050730 006205 ASR RS 

14348 050732 LET RS := RS + #DS.EXP 

14349 050732 062705 062536 ADD #0S.EXP,RS 
14350 050736 LET (RS) :B= (RS) CLR.BY #1 

14351 050736 142715 000001 BICB = #1, (RS) 
14352 050742 ENDIF 

14353 050742 $52170: 

14354 050742 WHILE R2 LE RO AND R3 HI #0 DO 

14355 050742 $52171: 

14356 050742 020200 CMP R2,RO 
14357 050744 003027 BGT $52172 
14358 050746 005703 TST R3 

14359 050750 101425 BLOS  $52172 
14360 050752 IF #BITOO SETIN R2 THEN 

14361 050752 032702 000001 BIT #B1T00,R2 
14362 050756 001415 BEQ $52173 
14363 050760 LET (R1) :B= (R1) SET.BY 4100 

14364 050760 152711 000100 BISB  #100,(R1) 
14365 050764 IF R2 EQ #1 AND DATAO2 HIS #3000 THEN 

14366 050764 020227 000001 CMP R2,#1 
14367 050770 001006 BNE $52174 
14368 050772 023727 000564 003000 CMP DATAO2 #3000 
14369 051000 103402 BLO $52174 
14370 051002 LET (R1) :B= (R1) SET.BY #20 ROUND ING 

14371 051002 152711 000020 BISB  #20,(R1) 
14372 051006 ENDIF 

14373 051006 $52174: 

14374 051006 LET R1 := R1 - #1 

14375 051006 005301 DEC R1 

14376 051010 ELSE 

377 051010 000402 BR $52175 

14378 051012 $52173: 

14379 051012 LET (R1) :B= (R1) SET.BY 44 

4380 051012 152711 000004 BISB #4, (R1) 
14381 051016 ENDIF 

14382 051016 $52175: 

14383 051016 LET R2 := R2 + #1 

14384 051016 005202 INC R2 

14385 051020 LET R3 := R3 - #1 

14386 051020 005303 DEC R3 

14387 051022 ENDDO 

14388 051022 000747 BR $52171 
14389 051024 $52172: 

14390 051024 IF R3 EQ #0 AND R2 LE RO THEN 

14391 051024 005703 TST R3 

14392 051026 001005 BNE $52176 
14393 051030 020200 CMP R2.RO 
14394 051032 003003 BGT $52176 
14395 051034 LET CC.EXP := CC.EXP SET.BY #VBIT 

14396 051034 052737 000002 000520 BIS #VBIT.CC.EXP 


4 
14397 051042 ENDIF 


®. 
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ENDIF $52176: 


$52164: 
IF DATAOO NE #0 AND DATAO1 NE #0 AND #B1T07 NOTSETIN DATAO2 mt 


$52177 
#81T07,DATAO2 
$52177 


3; TAKE CARE OF POSITIVE SHIFT 


IF #BITO7 NOTSETIN DATAO2 THEN 
032737 #B1T07,DATAO2 
001073 $52200 


BNE 
LET TEMP1 := DATAOO + TEMPO 7SRC.LEN + SHIFT COUNT 
013737 MOV DATAOO, TEMP1 


063737 ADD TEMPO, TEMP1 
IF TEMP1 HI DATAO1 THEN 
023737 CMP TEMP1 ,DATAO1 
101403 BLOS $52201 
LET CC.EXP := CC.EXP SET.BY A#VBIT 
052737 BIS #VBIT,CC.EXP 


ENDIF 
$52201: 
IF TEMPO HIS DATAO1 THEN 
eee ae TEMPO 


03407 202 
LET CC.EXP := CC.EXP SET.BY #ZBIT 
052737 #Z7BIT.CC.EXP 
LET CC.EXP := CC.EXP CLR.BY #NBIT 
042737 dips ANBIT.CC.EXP 
000443 BR $52203 
$52202: 
LET R4 := TEMPO + #1 :SHIFT COUNT + 1 
013704 MOV TEMPO.R4 


005204 
INLINE <ASR R4> 

006204 
LET R1 := DATAO1 :DST.LEN 

013701 DATAO1,R1 
INLINE <ASR_ R1> 

006201 


LET R17 := R1 + #DS.EXP = R4 
062701 #DS.EXP.R1 
R4 RI 


ce ET RO TEMPO T T 
L $ ; SHIFT COUN 

013700 TEMPO ,RO 
LET R2 := DATAOO 7SRC.LEN 

013702 MOV DATAOO.R2 
LET R3 := DATAOQ1 - TEMPO :DST.LEN = SHIFT COUNT 

013703 MOV pote -R3 


163703 0004 SUB EMPO .R3 


DATAO1 


ooo 
wi Wi 
ah a cal aad and aa ech cae an eed et 


ooocoo 
VViIw 
pa 
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152711 
005301 
000402 


152711 


005100 
005302 
005303 
000757 


013700 
052700 


012701 


013702 
052702 


012703 
013704 
005005 


TI 
13:37 


000560 
060000 
062370 
000562 
060000 


062474 
000564 
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WHILE R2 NE #0 AND R3 NE #0 DO 


IF #BITOO NOTSETIN RO THEN 


LET (R1) :B= (R1) SET.BY #100 
LET R71 := R1 = #1 
ELSE 


LET (R1) :B= (R1) SET.BY #4 
ENDIF 
LET RO := COMP RO 


LET R2 := R2 - #1 
LET R3 := R3 - #1 
ENDDO 
ENDIF 
ENDIF 


ENDIF 


34 


$52204: 


$52206: 


$52205: 
$52203: 
$52200: 
$52177: 


: DO THE ASHP INSTRUCTION USING SIGNED PACKED (UNSIGNED 
(cea WILL BE TESTED IN THE INLINE PORTION OF THE TEST). 
; CHECK THE RESULTS AND REPORT ANY ERRORS. 


LET RO 


LET R1: 
LET R2 : 


LET R3 : 
LET R4: 
LET RS : 


DATAOO SET.BY #60000 


A#DSBUF 1 
DATAO1 SET.BY #60000 


#DS.DST 
DATAO2 
#0 


BISB 


R2 

er 
$52205 
#81T00,RO 
$52206 


#100, (R1) 
R1 
$52207 


#4 ,(R1) 


RO 
R2 
R3 
$52204 


DATAOO ,RO 
#60000 .RO 


o 


#DSBUF 1 ,R1 
DATAO1 ,R2 
#60000 .R2 


#DS.DST.R3 
DATAO2 ,R4 
RS 


SEQ 0293 
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vi 
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wn 


051444 
051444 
051450 
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076076 


013737 
042737 
023737 
001402 


013737 
052737 


020237 
001402 


004737 


020327 
001402 


004737 


GNOSTIC 
13:37 


177776 
177760 
000516 


056274 


056274 


056274 


000562 
060000 
000474 


056274 


062474 


056274 
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000516 
000516 
000520 


000474 
000474 


INLINE <ASHP> 

ESEE SESH 

LET CC := CC CLR.BY #177760 
IF CC NE CC.EXP THEN 


CALL ERROR 
ENDIF 
IF RO NE #0 OR R1 NE #0 THEN 


CALL ERROR 
ENDIF 
IF R& NE #0 OR R5 NE 40 THEN 


CALL ERROR 
ENDIF 
LET TEMPO := DATAO1 SET.BY #60000 


IF R2 NE TEMPO THEN 


CALL ERROR 
ENDIF 
IF R3 NE #DS.DST THEN 


CALL ERROR 
ENDIF 
SEE IF DS.DST = DS.EXP 
LET RO := #40 
LET R1 := #DS.EXP 


$52210: 


$52211: 


$52212: 


$52213: 


$52214: 


$52215: 


$52216: 


PSwW,CC 
#177760,CC 


CC,CC.EXP 
$52210 


PC,ERROR 


RO 
$52211 
R1 
$52212 


PC,ERROR 


R4 
$52213 
$52214 


PC ,,ERROR 


DATAO1 , TEMPO 
#60000 . TEMPO 


R2, TEMPO 
$52215 


PC ERROR 


R3,4DS.DST 
$52216 


PC ERROR 
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051450 012701 062536 #DS.EXP,R1 
LET R2 := #DS.DST 
012702 062474 #DS.DST,R2 
LET ERRFLG := #0 
005037 000454 ERRFLG 
WHILE RO HI #0 AND ERRFLG EQ 40 DO 
$52217: ' 


SEQ 0295 | 


005700 
101412 
005737 


$52220 
IFB (R1)+ NE (R2)+ THEN 
122122 (R1)+, (R2)+ 
001403 $52221 
LET ERRFLG := #-1 
012737 177777 #~1,ERRFLG 


ENDIF 
$52221: 
LET RO := RO = #1 
005300 RO 


ENDDO 
$52217 
$52220: 
IF ERRFLG NE #0 THEN 
000454 ERRFLG 
BEQ $52222 
CALL ERROR :DS.DST AND DS.EXP DO NOT MATCH 
JSR PC ERROR 
ENDIF 
$52222: 
LET SIGNO := COMP SIGNO REPEAT THE TEST CASE vad Ay wae tf 
: SIGN BEFORE MOVING ON TO THE NEXT TEST CASE 
IF SIGNO EQ #0 THEN 
000446 TST 
BNE 


SIGNO 
$52223 
LET TSTCAS := TSTCAS + #6 
000006 000542 ADD #6, TSTCAS 
LET COUNT := COUNT - #1 
000466 COUNT 
ENDIF 
051552 $52223: 
UNTIL COUNT EG #0 
051552 IF COUNT NE #0 THEN 
000466 


056274 


000446 


COUNT 
$52224 
INLINE <JMP $5076> 
050252 $5076 


ENDIF 
$52224: 


SERERSSSRS 


i+ 
: DO ONE INLINE CASE = ASHPI. USE UNSIGNED PACKED. 


=e St Yo 
—OVONAOUSW—O 


Re 





CJKDGA, KEF11-8 CIS DIAGNOSTIC 
CJKDGA.P11 


14622 
14623 
14624 
14625 


: 


SERSEEREE 
BRAKES 


051714 
051714 


12-MAR-80 


004737 
112737 
112737 
112737 
004737 
076176 
052010 
052014 
000375 
013737 
042737 


005737 
001402 


004737 


13:3 


055520 
000231 
000231 
000237 
055330 


177776 
177760 
000516 


056274 


056274 


056274 
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062370 
062371 
062372 


000516 
000516 


CALL CLRDSB 





JSR PC,CLRDSB 
LET DSBUF1 :B= #231 39/9 
MOVB #231 ,DSBUF 1 
LET DSBUF1+1 :B= #231 39/9 
MOVB #231 ,DSBUF 1+1 
LET DSBUF1+2 :B= #237 39/17 
MOVB #237 ,DSBUF 1+2 
CALL CLRREG 
JSR PC, CLRREG 
INLI <ASHP I> 
ASHPI 
INLINE <. WORD TASHP I> 
«WORD TASHP I 
INLINE <. WORD TASHP1+4> 
~ WORD TASHP 1 +4 
INLINE <.WORD 375> ;SHIFT COUNT = -3, RND DIGIT = 0 
«WORD 375 
LET CC := PSW 
MOV PSW,CC 
LET CC := CC CLR.BY #177760 
BIC #177760,CC 
IF CC NE #0 THEN ;VBIT SHOULD BE SET 
TST CC 
BEQ $52225 
CALL ERROR 
JSR PC,ERROR 
ENDIF 
$52225: 
IF RO NE #0 OR R1 NE #0 OR R2 NE 40 THEN 
TST RO 
BNE $52226 
TST R1 
BNE $52226 
TST R 
BEQ $52227 
$52226: 
CALL ERROR 
JSR PC,ERROR 
ENDIF 
$52227: 
IF R3 NE #40 OR R4 NE 40 OR RS NE #0 THEN 
TST R3 
BNE $52230 
TST R 
BNE $52230 
TST RS 
BEQ $52231 
$52230: 
CALL ERROR 
JSR PC,ERROR 
ENDIF 
$52231: 


CHECK DS.DST 
LET RO := #DS.DST 
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051714 012700 062474 #0S.DST,RO 
051720 IFB (RO)+ NE #11 THEN sFIRST BYTE = 0/9 
122027 000011 (RO)+,4#11 
001402 $52232 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$52232: 
IFB (RO)+ NE #237 THEN SECOND BYTE = 9/17 
122027 000237 (RO) +, 4237 
001402 $52 


233 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$52233: 
LET ERRFLG := #0 
000454 ERRFLG 
WHILE ERRFLG NE #0 AND RO NE #DS.DST+37 DO 
$52234: 


000454 ERRFLG 
$52235 
062533 RO, ADS .DST+37 


$52235 
IFB (RO)+ NE #0 THEN 

105720 (RO)+ 
001405 $52236 

LET ERRFLG := #1 
012737 177777 000454 #1, ERRFLG 

CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$52236: 
ENDDO 
000762 BR $52234 


$52235: 
INLINE <JMP CIS7END> 
000137 052020 JMP CIS7END 


sd 
; INLINE TEST CASE 


052010 TASHPI: .WORD 070005 :SRC.DSCR, UNSIGNED PACKED, SRC.LEN 
- WOR :SRC.DSCR 

:DST.DSCR, UNSIGNED PACKED, DST.LEN 
“WORD DS.DST :DST.DSCR 


052020 INLINE <CIS7END:> 
052020 CIS7END: 
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SRE REE RERERK AEA EEE K 


~-SBTTL CIS8 INITIALIZATION 


SRR REAR EKER EERE 


: CIS8 INITIALIZATION 


DAES ISIIOISIOI IOI IOIISISISISIIISIOISISIOIOIUICIOIOIOIOIIOIOIOI IO III IT I TOT TST TST I TI IIE 
7 1F_SWR<5:0> ARE CLEARED OR IF SWR<4> IS SET THEN EXECUTE 
: THE CIS8 MODULE; OTHERWISE, SKIP TO THE NEXT CIS MODULE. 


052020 INLINE <SCOPE> 
052020 000004 


LET TEMPO := @SWR CLR.BY #177700 
017737 126400 000474 @SWR, TEMPO 
042737 177700 #177700, TEMPO 
IF TEMPO NE #0 THEN 
005737 000474 


TEMPO 
001406 $52237 
IF #BIT4 NOTSETIN TEMPO THEN 
032737 000020 #B1T4, TEMPO 
001002 BNE 


$52240 
INLINE <JMP  CIS8END> 
000137 053140 CIS8END 


ENDIF 
$52240: 


ENDIF 
$52237: 

LET CTL := #8. CONTROL CHIP NUMBER 

012737 000544 #8.,CTL 
LET ERRFLG := #0 : INITIALIZE ERROR FLAG 

005037 ERRFLG 
LET PSW := #340 

012737 177776 #340 .PSwW 
LET ERR := #1 

012737 000550 #1,ERR 
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-SBTTL MULP 


J EAA RARE ERE 


+ 
; MULP TEST 


eriiiiiiiiiiiitiitii tii titi ty 

INLINE <XMULP:> 

INLINE <SCOPE> 

LET $TIMES := #20 3 ITERATION COUNT 


000004 


012737 000020 000404 #20,$TIMES 
LET COUNT := TAB89 34 OF TEST CASES 
013737 054304 000466 TAB89 , COUNT 
LET TSTCAS := #TABB9+2 POINT TO FIRST TEST CASE 
012737 054306 000542 #TAB89+2 , TSTCAS 


: CLR RO.EXT TO R3.EXP 


INCR RO FROM #0 TO #6 BY #2 - 
$52241 
ADD #2,RO 
CMP RO, #6 
BGT $52243 
INLINE <CLR RO.EXP(RO)> 
CLR RO.EXP(RO) 


sine BR $52242 
052156 $52243: 

REPEAT OUTER LOOP FOR TEST CASES 
052156 INLINE <$5074:> 


$5074: 
CALL CLRDSB ;CLR DS BUFFERS 
055520 JSR PC, CLRDSB 


$5224?: 
$52241: 


: LOAD DATAXX AND CC.EXP FROM TEST CASE 


LET RO := TSTCAS 

013700 TSTCAS RO 
LET DATAOO := (RO)+ :SRC1 LENGTH 

012037 (RO) +, DATAOO 
LET DATAQ1 := (RO)+ :POINTER TO SRC1 DATA 

012037 (RO) +,DATAO1 
LET DATAO2 := (RO)+ :SRC2 LENGTH 

cone LET DATAO3 (RO) POINTER TO SRC2 DATA ne? + DATARS 

: + PY 
052202 012037 (RO) +, DATAO3 
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LET DATAO4 := (RO)+ DEST LENGTH 
012037 000570 MOV (RO) + ,DATA04 
LET DATAOS := (RO)+ sPOINTER TO DS.EXP DATA (PRODUCT) 
012037 000572 MOV (RO)+,DATAOS 
LET CC.EXP := (RO)+ 3CC.EXP (PRODUCT) 
012037 000520 MOV (RO) +,CC.EXP 


7+ 
PACK BUFFERS FOR SRC1,SRC2, & DEST 


LET R5 := #CHRSET 3R5 IS OPERAND STACK —— 
CALL PACK IN <#DSBUF1,DATAO1,DATAOO> ;SRC1 


012705 
010546 


ACHRSET ,R5 


PC ,PACK 
(SP)+,R5 


R5,-(SP) 


CALL PACK IN <#DSBUF 2,DATA03,DATA02> 


PC ,PACK 
(SP)+,R5 


CALL PACK IN <#DS.EXP,DATAOS,DATA04> 


LOAD GPR'S FROM DATAXX & ADD DATA TYPE 


DATAOO SET.BY #60000 
DATAOO RO 


MOV 
052700 060000 #60000 .RO 
:= #DSBUF1 
012701 #DSBUF 1,R1 
ciated := DATAO2 SET.BY #60000 eens oa 
ic a 
052702 060000 Sees #60000 .R2 
012703 #DSBUF 2,R3 
:= DATAO4 SET.BY #60000 
013704 DATA04 .R4 
052704 060000 #60000 .R4 
:= #DS.DST 
012705 #DS.DST.RS 
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FINISH SET UP & DO CIS INSTRUCTION 


LET R4.EXP := R4 

010437 R4,R4.EXP 
LET RS.EXP := R5 

010537 R5,R5.EXP 
INLINE <MULP> 

076074 


CHECK CONDITION CODES AND GPR'S FOR CORRECT RESULTS. 


LET CC := PSW 
013737 177776 000516 Psw,CC 
LET CC := CC CLR.BY #177760 
042737 177760 000516 #177760,CC 
IF CC NE CC.EXP THEN 
023737 000516 000520 CC,CC.EXP 
001402 $52244 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$52244: 
IF RO NE RO.EXP THEN 
020037 000522 RO,RO.EXP 
001402 $52245 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$52245: 
IF R1 NE R7.EXP THEN 
020137 000524 R1,R1.EXP 
001402 $52246 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$52246: 
IF R2 NE R2.EXP THEN 
020237 000526 R2,R2.EXP 
001402 $52247 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$52247: 
IF R3 NE R3.EXP THEN 
020337 000530 R3,R3.EXP 
001402 $52250 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$52250: 
: IF R4 NE R4.EXP THEN 
020437 000532 R4 ,R4.EXP 
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001402 $52251 
CALL ERROR 
004737 056274 PC ,ERROR 


ENDIF 
$52251: 
IF RS NE R5.EXP THEN 
020537 000534 R5S,R5.EXP 
001402 $52252 
CALL ERROR 
004737 056274 PC,ERROR 
ENDIF 
052524 $52252: 


2 


CHECK RESULTS VS EXPECTED RESULTS 


052524 LET RO := #DS.DST 
012700 #DS.DST,RO 
LET R1 := #DS.EXP 
012701 #DS.EXP,R1 
LET ERRFLG := #0 
ERRFLG 


WHILE RO NE #DS.DST+40 AND ERRFLG EQ 40 DO 
$52253: 
RO, 4DS.DST+40 
$52254 


ERRFLG 


$52254 
IFB (RO)+ NE (R1)+ THEN 
122021 (RO)+, (R1)+ 
001402 $5225 
CALL ERROR 


004737 056274 PC ,ERROR 


ENDIF 
$52255: 
ENDDO 
900765 $52253 


$52254: 
LET TSTCAS := TSTCAS + #22 
062737 000022 #22, TSTCAS 
LET COUNT := COUNT - #1 
005337 000466 DEC COUNT 
;UNTIL COUNT EQ 40 
IF COUNT NE #0 THEN 
005737 000466 TST COUNT 
001402 BEQ $52256 
INLINE <JMP $5074> 
000137 052156 JMP $5074 
ENDIF 
052612 $52256: 


INLINE CASE ~- MULPI, USING UNSIGNED PACKED DATA 
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052612 CALL CLRDSB 
052612 004737 055520 PC,CLRDSB 


i? 
: LOAD DATAXX AND CC.EXP FROM TEST CASE 


052616 LET RO := #TABB9+2 

012700 ATAB89+2 ,RO 
LET DATAOO := (RO)+ ;SRC1 LENGTH 

012037 (RO) +,DATAOO 
LET DATAO1 := (RO)+ POINTER TO SRC1 DATA 

012037 (RO)+,DATAO1 
LET DATAO2 := (RO)+ 3SRC2 LENGTH 

012037 (RO) + ,DATAO2 
LET DATAO3 := (RO)+ :POINTER TO SRC2 DATA 

012037 (RO) +,DATAOS 
LET DATAO4 := (RO)+ DEST LENGTH 

012037 (RO) + ,DATA04 


MOV 
LET DATAOS := (RO)+ sPOINTER TO DS.EXP DATA (PRODUCT) 
012037 MOV (RO) +,DATAOS 


PACK BUFFERS FOR SRC1,SRC2, & DEST 


LET R5 := ACHRSET 3R5 1S OPERAND STACK ee 
CALL PACK IN <#DSBUF1,DATAO1,DATAOO> ;SRC1 


012705 
010546 


#CHRSET RS 


R5,-(SP) 
DATAOO,-(R5) 
DATAO1.~(R5) 
#DSBUF 1 ,-(R5) 
PC, PACK 
(SP)+,R5 


CALL PACK IN <A#DSBUF 2,DATAO3,DATA02> 


SeeRgESE 


PC PACK 
(SP)+,R5 


BESESE 


CALL PACK IN <A#DS.EXP,DATAOS ,DATA04> 


Soo 
Wr 


aay 


e K 
CALL CLRREG “ENSURE GPR'S 0-5 ARE ZERO (SP)+,R5 
055330 , . J PC,CLRREG 


INLINE <MULPI> 
INLINE <.WORD TMULP]> 


z 
Soe 


076174 


mR St SS SS Ss SS Ss SS HY 3 DV SS SS SS 


BES 
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055100 «WORD TMULPI 
INLINE <.WORD TMULP] +4> 

055104 «WORD TMULPI+4 
INLINE <.WORD TMULP]+10> 

055110 «WORD TMULPI+10 
LET CC := PSW 

013737 177776 000516 PSW,CC 
LET CC := CC CLR.BY #177760 

042737 177760 000516 #177760,CC 


IF CC NE #0 THEN 
005737 000516 CC 
001402 $52257 

CALL ERROR 
004737 056274 PC ERROR 

ENDIF 

$52257: 
5? 
: ENSURE GPR'S STILL ZERO 


IF RO NE #0 OR R1 NE #0 OR R2 NE #0 THEN - 
$52260 
R1 
aaeaee 
$52261 


vw 


$52260: 
CALL ERROR 
056274 PC ERROR 


ENDIF 
$52261: 
IF R3 NE #0 OR R4 NE #0 OR RS NE #0 THEN 


090 
091 
5092 
5093 
5094 
5095 


e3 


R3 
$52262 
R4 
Sizebe 
$52263 


g 


$52262: 
CALL ERROR 
056274 PC ERROR 


ENDIF 
$52263: 


SSLESRALLS 


CHECK RESULTS 


#DS.DST 
012700 062474 #DS .DST.RO 
:= #DS.EXP EXPECTED DATA 
012701 062536 MO #DS.EXP,R1 
TMULFI+10 CLR.BY #70000 GET STRING LENGTH 
013702 055110 TMULPI+10,R2 


ad aa a eh cee aed ed ed 
NOUBWN © 
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042702 070000 #70000 ,R2 
INLINE <ASR R2> ZLENGTH/2 (PACKING FACTOR) 

006202 R2 
LET R2 := R2 + #DS.EXP 3R2 POINTS TO MSD/SIGN 

062702 062536 #DS.EXP,R2 
LET (R2) :B= (R2) SET.BY #17 sMAKE IT UNSIGNED 

152712 000017 #17, (R2) 
LET ERRFLG := #0 

000454 ERRFLG 

WHILE RO NE #DS.DST+37 AND ERRFLG EQ #0 DO 


062533 C RO, 4DS.DST+37 
$52265 
000454 ERRFLG 
BNE 


$52265 
IFB (RO)+ NE (R1)+ THEN 
122021 (RO) +, (R1)+ 
$52266 


001402 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$52266: 
ENDDO 
000765 BR $52264 
053140 $52265: 


053140 INLINE <CIS8END:> 
053140 


—_ 
Ww 
=_ 
— 
co 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


FARA LE SBLIFGRUVSSVSVERRUVVSS 
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SERRE AREER EERE KEKE EEK EEKREKEK 


WAI AAIYIUTVIUIUT ES SS 


ERRAVLESEVEALAVVSIHVSARANHASTSELFARARTIS SRVKGLANLSS 


-SBTTL CIS9 INITIALIZATION 


FARRER ERE EERE EERE EKER EERE EERE KERR KEKE 


+ CIS9 INITIALIZATION 


IBC RIIIIIDIIIOIOISIIIOIIISIIOIIISIIIIOIOIIIIOIOIIOIOITISIOIIOIIIOII IOI II III III IOI TE 
3 1F_SWR<5:0> ARE CLEARED OR IF SWR<5> IS SET THEN EXECUTE 
; THE CIS9 MODULE; OTHERWISE, SKIP TO END OF PASS. 


053140 INLINE <SCOPE> 
053140 000004 SCOPE 


053142 LET TEMPO := @SWR CLR.BY #177700 
017737 125260 0004 MOV a@SwR, TEMPO 
042737 177700 BIC #177700, TEMPO 
IF TEMPO NE #0 THEN 
0 5737 000474 TST 
001406 


TEMPO 
BEQ $52267 
IF #BITS NOTSETIN TEMPO THEN 
032737 000040 BIT #BITS. TEMPO 
001002 BNE 


$52270 
INLINE <JMP CIS9END> 
000137 055114 JMP — CIS9END 


ENDIF 
$52270: 


ENDIF 
$52267: 

LET CTL := #9, : CONTROL CHIP NUMBER 

012737 000544 #9. ,CTL 
LET ERRFLG := #0 : INITIALIZE ERROR FLAG 

005037 ERRFLG 
LET PSwW := #340 

012737 177776 #340 ,PSW 
LET ERR := #1 

053220 012737 000550 #1, ERR 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


oO 
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-SBTTL DIVP 


MARRS AALALEAS ALAA AAA ALLS SS | 


$2 


DIVP TEST 


FERRARA EERE EERE 
053226 INLINE <XDIVP:> 
INLINE <SCOPE> 


000004 
LET $TIMES := #20 : ITERATION COUNT 
012737 000020 000404 #20,$TIMES 
LET COUNT := TAB89 :# OF TEST CASES 
013737 054304 000466 TAB89 , COUNT 
LET TSTCAS := #TAB89+2 s:POINT TO FIRST TEST CASE 
012737 054306 000542 #TAB89+2, TSTCAS 


SSSESS 


Beseenass 


rororororer 
aed aed aed aed cd od 


Z¢ 
: CLR RO.EXT TO R3.EXP 


INCR RO FROM #0 TO #6 BY #2 


WOONAUSWN—O 


— 3 — 2a 


MMMM IA IAI 
Mrorora 


ron 
SS 


RO 
$52271 
#2 -RO 


$52272: 
$52271: 

C RO,46 
BGT $52273 
CLR RO.EXP(RO) 


BR $52272 
$52273: 


INLINE <CLR RO.EXP(RO)> 
END INC 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
15 
1 
1 
15 
5 


REPEAT OUTER LOOP FOR TEST CASES 
INLINE <$5075:> 


$5075: 
CALL CLRDSB :CLR DS BUFFERS 
055520 JSR PC,CLRDSB 


: LOAD DATAXX AND CC.EXP FROM TEST CASE 


LET RO := TSTCAS 

013700 TSTCAS ,RO 
LET DATAOO := (RO)+ 7SRC1 LENGTH 

012037 (RO) + ,DATAOO 
LET DATAO1 := (RO)+ POINTER TO SRC1 DATA 

012037 (RO)+,DATAO1 
LET DATAO2 := (RO)+ zSRC2 LENGTH 

012037 (RO) + ,DATAO2 
LET DATAO3 := (RO)+ zPOINTER TO SRC2 DATA 

012037 (RO) + ,DATAOS 

053326 LET DATAO4 := (RO)+ DEST LENGTH 
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012037 000570 MOV (RO) +,DATA04 
LET DATAOS := (RO)+ POINTER TO DS.EXP DATA (PRODUCT) 

012037 000572 MOV (RO) + ,DATAOS 
LET CC.EXP := (RO)+ 2CC.EXP (PRODUCT) 

012037 000520 MOV (RO)+,CC.EXP 
LET DATAOS := (RO)+ POINTER TO DS.EXP DATA (QUOTIENT) 

012037 000572 MOV (RO) + ,DATAOS 
LET CC.EXP := (RO)+ 2CC.EXP (QUOTIENT) 

012037 000520 MOV (RO)+,CC.EXP 


EAS 


od 
: PACK BUFFERS FOR SRC1,SRC2, & DEST 


053352 LET RS := #CHRSET 7R5 IS OPERAND STACK FOR ROUTINE 

053352 012705 MOV #CHRSET RS 

053356 CALL PACK IN <A#DSBUF1,DATAO1,DATA00> 7SRC1 

053356 010546 R5,-(SP) 

053360 DATAOO, -(R5) 
DATAO1 ,-(R5) 

#DSBUF 1,-(R5) 

PC ,PACK 
(SP)+,R5 


Se 


BRAS 


SSNS 


Vivi 
A 
&* 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


CALL PACK IN <A#DSBUF 2,DATAO3,DATA02> 


(SP)+,R5 


R5,-(SP) 
DATA04 ,~(R5) 
DATAOS ,~(R5) 
#DS.EXP,-(R5) 
C PACK 
(SP)+,R5 


CALL PACK IN <#DS.EXP,DATA0S ,DATA04> 


: LOAD GPR'S FROM DATAXX & ADD DATA TYPE 
LET RO := DATAOO SET.BY #60000 
013700 DATAOO,RO 
060000 #60000.RO 


052700 
LET R1 := #DSBUF1 
012701 #DSBUF1,R1 
arene LET R2 := DATAO2 SET.BY #60000 vies saab de 
052702 060000 #60000 .R2 
LET R3 := #DSBUF2 
012703 #DSBUF 2,R3 
013704 LET R4 := DATAO4 SET.BY #60000 mw DATADS..Ré 
052704 060000 #60000. 


SSystaeR 


ee ek ed ed ed ds nd ed = od 
Wr 


SESESE 
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310 
311 
312 
313 
314 
315 
316 
317 
318 
319 


SUSORERSS 


WON 


P) 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


FESS SARA S 


§ 


053512 
053512 012705 062474 


053516 


010437 
010537 
076075 


013737 
042737 


023737 
001402 


004737 


020037 
001402 


004737 


020137 
001402 


004737 
020237 
001402 
004737 


020337 
001402 


004737 


177776 
177760 
000516 


056274 


000522 


056274 


000524 


056274 


000526 


056274 


000530 


056274 


000516 
000516 
000520 
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37 DIVP 


LET RS := #DS.DST 


FINISH SET UP & DO CIS INSTRUCTION 


LET R4&.EXP := R4 
LET R5.EXP := R5 
INLINE <DIVP> 


i+ 
: CHECK CONDITION CODES AND GPR'S FOR CORRECT RESULTS. 


LET CC := PSW 
LET CC := CC CLR.BY #177760 
IF CC NE CC.EXP THEN 


CALL ERROR 
ENDIF 
IF RO NE RO.EXP THEN 


CALL ERROR 
ENDIF 
IF R1 NE R1.EXP THEN 


CALL ERROR 
ENDIF 
IF R2 NE R2.EXP THEN 


CALL ERROR 
ENDIF 
IF R3 NE R3.EXP THEN 


CALL ERROR 


$52274: 


$52275: 


$52276: 


$52277: 


#DS.DST,R5 


R4,R4.EXP 
R5,R5.EXP 


PSW,CC 
#177760,CC 


CC,CC.EXP 
$52274 


PC..ERROR 


RO,RO.EXP 
$52275 


PC ERROR 


R1,R1.EXP 
$52276 


PC..ERROR 


R2,R2.EXP 
$52277 


PC ERROR 


R3,R3.EXP 
$52300 


PC ERROR 
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15366 $ ENDIF 


020637 000532 IF R4 NE R4.EXP THEN - - 
R4,R4.EXP 
001402 $52301 
CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$52301: 
ouvir tenn IF RS NE RS.EXP THEN ~ 
R5,R5.EXP 
001402 $52302 
_ CALL ERROR 
004737 056274 PC,ERROR 


ENDIF 
$52302: 


muna 
GSSLSSSSESS 


WAWW 
“N 


3+ 
: CHECK RESULTS VS EXPECTED RESULTS 


LET RO := #DS.DST 
012700 #DS .DST,RO 
LET R1 := #DS.EXP 
012701 #DS.EXP,R1 
LET ERRFLG := #0 
ERRFLG 


WHILE RO NE #4DS.DST+40 AND ERRFLG EQ 40 DO 


SRESERSEI3 


S8e 


$52303: 
RO, ADS .DST+40 


$52304 
ERRFLG 
$52304 


S3s 


met IFB (RO)+ NE (R1)+ THEN 
R ) 
001402 335305" : 
CALL ERROR 
004737 056274 PC ERROR 


ENDIF 
$52305: 
ENDDO 
000765 $52303 


LET TSTCAS := TSTCAS + #22 pumen 
062737 000022 P #22, TSTCAS 
LET COUNT := COUNT - #1 
005337 000466 COUNT 
ee 
005737 000466 TST COUNT 
001402 BEQ $52306 
INLINE <JMP $5075> 
000137 053276 ad JMP $5075 


So 
BLS 


BRCREReR ESSE 


KELKELLARLELLEL 
_— mw as BV HS SG 


Vv 

E> 

Mn 
“SOVOaNOAUSWN—O 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


053742 
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CJKDGA.P11 SEQ 0311 
15422 

15423 3+ 

13424 : INLINE CASE = DIVPI, USING UNSIGNED PACKED DATA 

15426 

15427 053742 CALL CLRDSB 

15428 053742 004737 055520 JSR PC,CLRDSB 
15429 

15430 s@ 

15431 : LOAD DATAXX AND CC.EXP FROM TEST CASE 

15432 = 

15433 

15434 053746 LET RO := #TAB89+2 

15435 053746 012700 054306 MOV #TABB9+2,RO 
15436 053752 LET DATAOO := (RO)+ :SRC1 LENGTH 

15437 053752 012037 000560 MOV (RO) +,DATAOO 
15438 053756 LET DATAO1 := (RO)+ :POINTER TO SRC1 DATA 

15439 053756 012037 000562 MOV (RO) +,DATAO1 
15440 053762 LET DATAO2 := (RO)+ ;SRC2 LENGTH 

15441 053762 012037 000564 MOV (RO) +, DATAO2 
15442 053766 LET DATAO3 := (RO)+ :POINTER TO SRC2 DATA 

15443 053766 012037 000566 MOV (RO) +,DATAO3 
15444 053772 LET DATAO4 := (RO)+ :DEST LENGTH 

15445 053772 012037 000570 MOV (RO) +, DATAO4 
15446 053776 LET DATAOS := (RO)+ :POINTER TO DS.EXP DATA (PRODUCT) 

15447 053776 012037 000572 MOV (RO) +,DATAOS 
15448 054002 LET CC.EXP := (RO)+ 

15449 054002 012037 000520 MOV (RO)+,CC.EXP 
15450 054006 LET DATAOS := (RO)+ :POINTER TO DS.EXP DATA (QUOTIENT) 

15451 0 012037 000572 MOV (RO) +,DATAOS 
15452 

15453 i+ 

15454 : PACK BUFFERS FOR SRC1,SRC2, & DEST 

12486 - 

15457 054012 LET RS := #CHRSET :R5 1S OPERAND STACK FOR ROUTINE 

15458 054012 012705 061766 MOV #CHRSET RS 
15459 054016 CALL PACK IN <#DSBUF1,DATAO1,DATAOO>  ;SRC1 

15460 054016 010546 MOV R5,-(SP) 
15461 054020 013745 000560 MOV DATAOO,-(R5) 
15462 054024 013745 000562 MOV DATAO1 .-(R5) 
15463 012745 062370 MOV (RS 
15464 054034 004737 055646 JSR PC, PACK 
15465 054040 012605 MOV (SP)+,R5 
15466 054042 CALL PACK IN <#DSBUF2,DATAO3,DATAQ2>  ;SRC2 

15467 054042 010546 MOV -( 

15468 054 013745 000564 MOV DATAO2,-(R5) 
15469 054050 013745 000566 MOV DATAO3,~(R5) 
15470 054 012745 062432 MOV 2,-(R 
15471 054060 004737 055646 JSR PC, 

15472 054064 012605 MOV (SP)+,R5 
15473 054066 CALL PACK IN <ADS.EXP,DATAOS,DATA04> DEST 

15474 054066 010546 MOV R5,-(SP) 
15475 054070 013745 000570 MOV DATA04 ,=(R5) 
15476 054074 013745 000572 MOV DATAOS.-(R5) 
15477 054100 012745 062536 MOV #DS.EXP,-(R5) 
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CJKDGA.P11 


15478 
15479 


PEPELEPL ELSE ETE 
SPOR aS oR eRER ORR Tes 


MMW) war 
BSSSSSSsSseo 


DAA AAAA AAA AAA DAV VIA TUTTI 
MI MAA MADD DADA 
RARAVOSOONANR WO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


MOMMA AM 


054154 


054154 
054154 


054214 


004737 
012605 


004737 


076175 
055100 
055104 
055110 
013737 
042737 


005737 
001402 


004737 


055646 


055330 


177776 
177760 
000516 


056274 


056274 


056274 
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37 DIVP 


CALL CLRREG 


INLINE <DIVPI> 

INLINE <.WORD TMULPI> 
INLINE <.WORD TMULP] +4> 
INLINE <.WORD TMULPI+10> 
LET CC := PSW 

LET CC := CC CLR.BY #177760 
IF CC NE 40 THEN 


CALL ERROR 
ENDIF 


i+ 
: ENSURE GPR'S STILL ZERO 


IF RO NE #0 OR R1 NE #0 OR R2 NE #0 THEN 


CALL ERROR 
ENDIF 
IF R3 NE #0 OR R4 NE #0 OR RS NE #0 THEN 


CALL ERROR 
ENDIF 


CHECK RESULTS 


ENSURE GPR'S 0-5 ARE ZERO 


$52307: 


$52310: 


$52311: 


$52312: 


$52313: 


DIVPI 


PC ,PACK 
(SP)+,R5 


PC, CLRREG 


«WORD TMULPI 
«WORD TMULPI+4 
«WORD TMULPI+10 


PSW,CC 
#177760,CC 
$52307 
PC,,ERROR 


RO 
$52310 
R1 
a 
$52311 


PC,,ERROR 


R3 
Seste 
$52312 
R5 
$52313 


PC ERROR 
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054214 LET RO := #DS.DST 
012700 062474 #DS.DST,RO 
LET R1 := #DS.EXP EXPECTED DATA 
012701 062536 #DS.EXP,R1 
LET R2 := TMULPI+10 CLR.BY #70000 :GET STRING LENGTH 
013702 055110 TMULPI+10,R2 
070000 #70000 ,R2 


ashes INLINE <ASR R2 ENGTH/2 (PACKING TOR) 
> zL H K FACTOR 
006202 R2 
LET R2 := R2 + #DS.EXP :R2 POINTS TO MSD/SIGN 
062702 MDS .EXP,R2 
LET (R2) :B= (R2) SET.BY #17 MAKE IT UNSIGNED 
152712 #17, (R2) 
LET ERRFLG := #0 
ERRFLG 


WHILE RO NE #4DS.DST+37 AND ERRFLG EQ 40 DO 


SSS SSS so cays 
UNAS SeNONR WI DOOM RU 


$52314: 
c RO, ADS .DST+37 
$52315 


ERRFLG 
$52315 
122021 IFB (RO)+ NE (R1)+ THEN 
(RO)+, (R1)+ 
001402 $52316 
CALL ERROR 
004737 056274 PC,,ERROR 


ENDIF 
$52316: 
ENDDO 
000765 BR $52314 


$52315: 
INLINE <JMP CIS9END> 
000137 055114 JMP CIS9END 


MMIII IU 
wi ws 
wi 


SOG 


1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SEEReREROS 
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12200 -SBTTL TEST CASES FOR CIS8 & CIS9 
12206 054304 000007 TAB89: .WORD 7 :# OF TEST CASES 
15574 054306 000017 -WORD 15. 2 SRCI LENGTH 
15575 054310 054504 -WORD MUL1 C1 PTR 
15576 054312 000021 «WORD 17, :SRC2 i 
15577 054314 054526 «WORD MULTA ;SRC2 P 
15578 054316 000037 -WORD 31. DEST LENGTH 
15579 054320 054552 -WORD MUL1B ;DEST PTR (PRODUCT) 
15580 054322 000000 -WORD 0 3:CC.EXP (PRODUCT) 
15581 324 054614 -WORD MULIC sDEST PTR (QUOTIENT) 
12256 054326 000000 «WORD 0 3CC.EXP (QUOTIENT) 
15584 4330 000004 -WORD 4 
15585 054332 054656 -WORD MUL2 
15586 4334 000007 -WORD 7 
15587 336 054664 «WORD MUL2A 
15588 340 000013 -WORD 11, 
15589 054342 054676 -WORD MUL2B 
15590 054344 000010 -WORD 10 
15591 054346 054714 -WORD MUL2C 
; re 054350 000010 -WORD 10 
15594 054352 000005 -WORD 5 
15595 054354 054732 -WORD MUL3 
15596 054356 000002 -WORD 2 
15597 054 054742 -WORD MUL3A 
15598 054 000006 -WORD 6 
15599 054364 054746 -WORD MUL3B 
15600 054366 000000 - WORD 
15601 054370 054756 -WORD MUL3C 
: Pry 054372 000004 -WORD 4 
15604 054374 000005 -WORD 5 
15605 054376 054766 -WORD MUL4 
15606 054400 000001 -WORD 1 
15607 054402 054776 -WORD MUL4A 
15608 054404 000001 -WORD 1 
15609 406 055002 -WORD MUL4B 
15610 054410 000004 -WORD 4 
15611 054412 055006 -WORD MUL4C 
; 3H ; 054414 000004 -WORD 4 
15614 054416 000002 -WORD 2 
15615 054420 055012 «WORD MUL5 
15616 054422 000005 -WORD 5 
15617 054424 055016 -WORD MULSA 
15618 054426 000000 - WORD 
15619 054430 055026 -WORD MUL5B 
15620 054432 000006 -WORD 6 
15621 054434 055032 -WORD MULSC 
: o056 054436 000006 -WORD 6 
15624 054440 000005 -WORD 5 
15625 054442 054766 -WORD MUL4 
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CJKDGA.P11 12-MAR-80 13:37 TEST CASES FOR CIS8 & CIS9 SEQ 0315 
1 054444 000001 «WORD 1 
15627 054446 054776 -WORD MUL4A 
15628 054450 000004 -WORD 4 
15629 054 055002 -WORD MUL4B 
15630 054454 000004 «WORD 4 
15631 054456 055006 -WORD MUL4C 
13636 054460 000004 «WORD 4 
15634 054462 000005 -WORD 5 
15635 054464 055036 -WORD  MUL7 
15636 054466 000004 -WORD 4 < 
15637 054470 055046 -WORD MUL7A 
15638 054472 000010 -WORD 8. 
15639 74 055054 -WORD MUL7B 
15640 054476 000000 -WORD 0 
15641 4500 055066 -WORD MUL7C 
13g 054502 000004 -WORD 4 
15644 054504 000000 MUL1: .WORD 0 
15645 054506 004 004 004 “BYTE = 4.,4.4,4,4,4,4,4,4,4,4,4,4,4,4 
15646 054511 004 004 004 
15647 054514 004 004 004 
15648 05451 004 004 004 
15649 054522 004 004 004 
, ts 054526 EVEN 
15652 054526 MUL1A: .WORD 0 
15653 0545 001 007 004 sBYTE = 1,7,4,342,1,6,9. 4545246709 1441602 
15654 054533 003 002 001 
15655 0545 011 005 
15656 054541 004 007 
15657 054544 011 004 001 
15658 05454 006 002 
15659 054552 -EVEN 
15660 
15661 054552 000000 MUL1B: .WORD 0 
15662 054554 007 007 004 MYTE 7.7.4.7 6.5.8.9. .0.4.35.5.2.9..5.3 
15663 054557 007 006 003 
15664 0545 011 000 
15665 05456 003 005 
15666 054570 002 011 005 
15667 054573 003 
15668 054574 001 004 001 MVTE 1,4.1.2.5.7.9..8.4.5.3.5,9..2A. 
15669 054577 002 00 007 
15670 054602 011 010 004 
15671 054605 005 00 005 
15672 054610 011 002 010 
: =o? 054614 -EVEN 
15675 054614 000000 MUL1C: .WORD 0 
15676 054616 000 000 000 -BYTE 0,0,0,0,0,0,0,0.0.0.0.0,0,0,0,0 
5677 054621 000 000 000 
15678 054624 000 000 000 
79 054627 000 000 000 
15680 054632 000 000 000 
15681 054635 000 
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-BYTE 0,0,0,0,0,0,0.0,0,0.0,0,0,3,9. 


CJKDGA, KEF11-B CIS D 
CJKDGA.P11 12=MAR=-80 13: 


054652 
054656 
54 


-1 
054660 2.7.4.1 
054663 


054664 
054666 
054671 
054674 
054676 
054700 
054703 011 
054706 000 
054711 


0 
8. 24.6,2.9. ol od 


-1 
€,301,9.57.0.0,8.,9..9..3 


011 
054714 
054714 177777 

000 
000 


-1 
0,0,0,0,0,0.0, 5.0.8. or 


054727 __—(010 
054732 
054732 177777 ' al 
054734 004 00 4,1,7,3,9. 
054737 003 
054742 


054742 177777 
054744 001 


NNNNGNWGNWG 
a > > > hm Pe | 
WONAULRW 


054746 000000 
004 
001 


NNNN 
N 
RNNIS 


054756 : .WORD 0 
054760 000 . -0.0,0,0, 
054763 seein 


NNNNN 
VVVgoy 


054766 
054770 
054773 


054776 
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055000 000 0 
055002 . 


055002 000000 : 0 

055004 000 0 
055006 

055006 000000 : 0 

055010 000 0 
055012 

055012 000000 : WOR 0 

055014 1 


055016 
055020 
055023 


055026 

055030 

055032 : .WORD 0 
0550 0 

USES THE MUL4 STRINGS 


-WORD QO 
-BYTE 1,0,0,0,0 


- EVEN 

-WORD 0 

-BYTE 1,0,0,1 

-EVEN 

-WORD QO 

-BYTE 1,0,0,1,0,0,0.0 


EVEN 
-WORD QO 
-BYTE 0,0.0,0,0,0,0.0 


S88 888 8 8&8 


055076 
-EVEN 


INLINE TEST CASE FOR MULP & DIVP 


SSIISSIRARASAS Ia NOON. 


: .WORD 070017 
«WORD #DSBUF1 
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KDGA.P11 12=MAR- TEST CASES FOR CIS C1S9 SEQ 0318 
15794 055104 070021 «WORD 070021 
15795 055106 062432 -WORD #DSBUF2 
15796 055110 070037 -WORD 070037 
15797 055112 062474 -WORD #DS.DST 
15798 
15799 
15800 055114 CIS9END: 
15801 
15802 
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-ABS 


RIES ISIS ISIOIISIISIISISIIOIIIUIIDIOIIIIISIUISIIIIIIIIIIN DIR ith 
~S8TTL END OF PASS ROUTINE 

eriiiiiiit iii itt titi iii iii iiitiiiitiiitiiiiitiiiiiie 
> * INCREMENT THE PASS NUMBER (S$PASS) 

:*TYPE "END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER) 

:*IF THERES A yh GO TO IT 

:*IF THERE ISN'T JUMP TO BEGIN 


SEOP: 


ad aa aad a cad cad cae cae ea eed 
WONAOULSWN—O 


Hb LL 32ZERO THE TEST NUMBER 

SPASS < INCREMENT THE PASS NUMBER 
100000 000636 #100000, $PASS 3 DON'T ALLOW A NEG. NUMBER 
055230 ee ee ; LOOP? 


OAGN YES 
055232 055230 SENDCT,SEOPCT ::RESTORE COUNTER 
055237 000546 MOV #SENDMG ,MSGADR 
i TYPE ‘END PASS 2 


000636 MOV $SPASS ,~(SP)  ESAVE SPASS FOR TYPEOU 
P ::GO TYPE--OCTAL ASCII, "no LEADING ZEROES 
0 

055234 MOV SENULL ,MSGADR 


000042 $GET42: MO #42 ,RO 
SDOAGN 


SENDAD: JSR PC, (RO) 
NOP 


—_ 
PAAA AAAI ADAMI AMI IVI 
MEW 


BESSE 


3: TYPE A NULL CHARACTER 


Co 
W 
= 


Rey 


60 
¥ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SDOAGN: 
001510 BEGIN 
SEOPCT: .WORD 1 
SENDCT: . WORD 
377 SENULL: .BYTE <-1,-1,0 ::NULL CHARACTER STRING 
0424 12 SENDMG: .ASCIZ <15><12>/END PASS’ #/ 


ase 


055252 


Pettitt iii iti iii iii ii tir itiititiiiitiititiiiitiititiititi iit) 
; TABLE OF SIGN/DIGIT COMBINATIONS FOR OVERPUNCH 


FERRARA RARER EREEAEEEERERAEAEAEREREERERREERAERERKERREREEERER ERE 


055254 OVPNCH: 


OoOoon 
Wr-wWw 


wm a SS Ss — 3 I 
Ww 
TR Tere rerererere) 


55 
055265 





KEF11-8 CIS D 
08-F EB- 


ed cd a ce a ed oe ee ced Ss 
NNN a SS ooo 
N—ONAWUSWRNUW ee 


012737 
104401 


000000 
000002 


012737 
104401 


000000 
000002 


060534 000546 
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END OF PASS ROUTINE 


— 
N 
Ww 


— 2 I Ys —Y 4 1 — — 
Ba Be Be Be Be Be Be Be Be Be 


MNnn-- ee 
NM HONAUS WI 


FERRARA EERE ERE KEEEEKREKEEKEEEERERKEKEEEKREKKE 


-SBTTL UNEXPECTED TIME-OUT TRAP ROUTINE 


Tritt tii tigitiii titer iit iititiiitiiiiiitiiititititititiiic. 
: #ANY UNEXPECTED TIME-OUT TRAP WILL END UP HERE 


TIMOUT: Tie #T IMMSG .MSGADR TYPE OUT ERROR MESSAGE 


HALT 
RTI 


FERRARA EREEREREREEEKEEREKEKKEEKEREKREEREREEKEEKEKEEEREEREKERERREKEK 


*S8TTL ILLEGAL/RESERVED INSTRUCTION TRAP ROUTINE 


Tritt tittitiiiittitiaciitiiiciiiitiiiiiiititiititiiitititiitis) 
; ANY ILLEGAL OR RESERVED INSTRUCTION TRAPS WILL END UP HERE. 


ILLRES: a #ILLMSG,MSGADR TYPE OUT ERROR MESSAGE 
HALT 
RTI 


FERRER EEEEEEEEREKEEEEEEKERKEEKREEEREEEEKEREKEEREKREERK EK 


*SBTTL CLEAR REGISTERS RO - R5 ROUTINE 


J AAA EREEEREEKEEREEKEKEAEKEEEKEEKEEREREEREKREEKREKEKEKEEEE 


SATHIS ROUTINE CLEARS GENERAL PURPOSE REGISTERS RO THROUGH R5. 


3* 

ROUTINE CLRREG 
LET RO := #0 
LET R1 : 

LET R2: 

LET R3: 

LET R4 := 


LET RS: 


CLRREG: 





9 
KEF 11-8 CIS DIAGNOSTIC MACY11 30A(1052) 14-MAR=80 08:04 PAGE 306 
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010037 
010137 
013700 
012701 


005020 
005301 


005701 
001374 


013700 
013701 


000207 


010037 000576 


CLEAR REGISTERS RO = R5 ROUTINE 
ENDRTN 


$52317: 
$52320: 
RTS 


FARRAR AERA ERE REAR EAKERKREKREEKEEKEKREREKEREKEKKEKEKEKEE 


-SBTTL CLEAR BUFFER ROUTINE 


DIBA SSI IAIDISISIIIIOIOIDISIOI ISIS IEISIOIIOIOIIOIOIIOIOIOIOIOI IOI TOI TOT OT OT TOT TOT TET TE 
SRTHIS ROUTINE CLEARS A 100 BYTE BUFFER WHOSE STARTING ADDRESS 
[*HAS BEEN PUT INTO ‘BFADRS'. 


ROUTINE CLRBUF 
LET SAVRO := RO 
LET SAVR1 := 
LET RO := 
LET R1 := 
REPEAT 
LET (RO)+ := 
LET R1 := R1 - #1 
UNTIL R1 EQ 40 


$52323: 


LET RO := SAVRO 
LET R1 := SAVR1 


ENDRTN 
$£ 2321: 
$52322: 
RTS 


FERRER EEREKREEEEERKEREKEEEEREREREEEERERERKEEEREEREEEEKEEE 


*S8TTL SET BUFFER ROUTINE 


Tritt iiiii iti titi itiisitiiiitiitifiiiitiiiiiiitititiitiiiitiit 
[*THIS ROUTINE SETS ALL BITS IN A 100 BYTE BUFFER WHOSE STARTING 
;*ADDRESS HAS BEEN PUT INTO ‘BFADRS'. 

* 


ROUTINE SETBUF 


LET SAVRO := RO 
MOV 


RO, SAVRO 

R1,SAVR1 

BF ADRS ,RO 
#40,R1 


(RO) + 
R1 


R1 
$52323 
SAVRO RO 
SAVR1,R1 


PC 


RO, SAVRO 


SEQ 0321 
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055414 LET SAVR1 := R1 
010137 000600 R1,SAVR1 
LET RO := BFADRS 
013700 000540 BF ADRS ,RO 
LET R1 := #40 
012701 000040 #40,R1 


REPEAT 
$52326: 
LET (RO)+ := #177777 
012720 177777 #177777, (RO)+ 
LET R71 := R1 = #1 
005301 R1 
UNTIL R1 EQ #0 
005701 


R1 
001373 BNE $52326 
LET RO := SAVRO 
013700 SAVRO ,RO 
LET R1 := SAVR1 
013701 SAVR1,R1 


ENDRITN 
$52324: 
$52325: 
055452 000207 Q PC 


5 UAE EEREEEEEREEREKEEKEREKREKEKEKEKREEEKEKEEKKEEKEEEKEKKK 


“SBITL ONES AND ZEROES BUFFER ROUTINE 


fF EAA EERE ERERKEEREKEEKEEKREREEREREEK 


>*THIS ROUTINE SETS AN ALTERNATING ONES AND ZEROES PATTERN IN A 100 
: *BUFFER WHOSE STARTING ADDRESS HAS BEEN PUT INTO ‘BFADRS'. 
* 


055454 ROUTINE ALTBUF 


AL TBUF : 

LET SAVRO := RO 

010037 RO,SAVRO 
LET SAVR1 := R1 

010137 R1,SAVR1 
LET RO := BFADRS 

013700 BF ADRS ,RO 
LET R1 := #40 

012701 000040 #640,R1 


REPEAT 
$52331: 
LET (RO)+ := #125252 
012720 125252 #125252, (RO) + 
LET R1 := R1 - #1 
005301 R1 
UNTIL R1 EQ #0 
005701 


R1 
001373 BNE $52331 
LET RO := SAVRO 
013700 SAVRO,RO 
LET R1 := SAVR1 
013701 SAVR1,R1 


: 


SSSSssssss 
CONOAOUSWN © 


eae 


Bae 
MSW 





CJKDGA 
ND.P11 


3 
°o 


16051 
16052 
16053 
16054 
16055 
16056 
16057 
16058 
$4 
16061 


6060 
6062 
16063 
16064 
16065 
16066 
16067 
6068 


— 


—— 3 
BBs 
33% 
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055520 


055562 


010037 
010137 
012700 
012701 


105020 
005301 


005701 
001374 


013700 
013701 


000207 


010037 


S AND ZEROES BUFFER ROUTINE 
ENDRTN 
$52327: 


$52330: 
RTS 


FARRER SEERA TREE KKEERREEEREEKERREREREERRE 


~SBTTL CLEAR DECIMA! STRING BUFFERS ROUTINE 


FARRER E LESTER ERREERRRKEERREEEKEEREREEKEH 


SATHIS ROUTINE CLEARS ALL BITS IN THE FOUR 40-BYTE DECIMAL 
>*STRING BUFFERS. 


ROUTINE CLRDSB 
LET SAVRO := RO 
LET SAVR1 := R1 
LET RO := #DSBUF 1-1 
LET R1 := #207 
REPEAT 
LET (RO)+ :B= #0 
LET R1 := R1 = #1 
UNTIL R171 EQ 40 


RO, SAVRO 

R1,SAVR1 

#DSBUF 1-1,RO 

#207,R1 
$52334: 

(RO) + 

R1 


R1 
$52334 
SAVRO RO 
SAVR1,R1 


LET RO := SAVRO 
LET R1 := SAVR1 


ENDRTN 
$52332: 
$52335: 
PC 


FL EAA EAEREREREEREKEREEEREKEEREREEEEREEEEREEEEEEREREREREE 


» SBTTL SAVE REGISTERS RO - R5 


Tit it iii litiiiiitiiititiigiititiiititiiititiiiiitiiiicicicicy 
:*THIS ROUTINE SAVES RO THROUGH R5 IN LOCATIONS SAVRO = SAVRS. 


ROUTINE SAVREG 
LET SAVRO := RO 
LET SAVR1 : 


SAVREG: 
RO, SAVRO 





— 3 St os So SS ss Ss SS 
ADRAAKRAARAAAARAAAAH 
ee ee cl eh ee ed ee eed eed wed ed 
NONID SS 
wn L8Sa Qanrwn=oSe 
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SAVE REGISTERS RO = R5 SEQ 0324 
055566 010137 000600 MOV R1,SAVR1 
055572 LET SAVR2 := R2 
055572 010237 000602 MOV R2, SAVR2 
055576 LET SAVR3 := R3 
055576 010337 000604 MOV R3,SAVR3 
055602 LET SAVR4 := R4 
055602 010437 000606 MOV R4,SAVR4 
055606 LET SAVRS := R5 
055606 010537 000610 MOV R5,SAVR5S 
055612 ENDRTN 
055612 $52335: 
055612 $52336: 
055612 000207 RTS PC 


5 AREER EKER EKER EEE EEKEKEREREREKEKREEKKEKERKEKKEEEKEKREREKEEKEEK EK 


~-SBTTL RESTORE REGISTERS RO - R5 


DDI IOI IOI III III III IORI III III IIIS II AAAS SAIS SSIS SIAISISS ISIS SSSI. 
:*THIS ROUTINE RESTORES RO THROUGH RS FROM LOCATIONS SAVRO - SAVRS 
*% 


055614 ROUTINE RESREG 

055614 RESREG: 

055614 LET RO := SAVRO 

055614 013700 000576 MOV SAVRO,RO 
055620 LET R1 := SAVR1 

055620 013701 000600 MOV SAVR1,R1 
055624 LET R2 := SAVR2 

055624 013702 000602 MOV SAVR2 .R2 
055630 LET R3 := SAVR3 

055630 013703 000604 MOV SAVR3,R3 
055634 LET R4& := SAVR4 

055634 013704 000606 MOV SAVR4 ,R4 
055640 LET R5 := SAVRS 

055640 013705 000610 MOV SAVRS ,R5 
055644 ENDRTN 

055644 $52337: 

055644 $52340: 

055644 000207 RTS PC 


C 10 
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FERRARA EERE EERERKKERKKEE 


‘SBTTL PACK = PACK DECIMAL STRING ROUTINE 


FERRARA EERE EEEREKEKERERREKEK 


+ 
FUNCTIONAL DESCRIPTION 


THE PACK ROUTINE ACCEPTS UNPACKED DATA FROM A TEST CASE 
TABLE AND PACKS IT (TWO BCD CHARS/BYTE) INTO ONE OF THE 
DECIMAL STRING BUFFERS. 


INPUTS: 
1 age te . THE DESTINATION BUFFER. ** NOTE: ** THIS MUST 


SBUF2, OR #DS.EXP. 

2. POINTER TO SOURCE DATA IN TEST CASE TABLE. ** NOTE: ** 
THIS MUST BE DATAO1, DATAO3, DATAOS. 

3. POINTER TO DESTINATION STRING OT ENGTH. ** NOTE: ** THIS 
MUST BE DATAOO, DATAO2, OR DATA04. 


OUTPUTS: 
NONE 


RARRRARAAAAAAAAARAAAAAARARD 
RARRRRRARWAWWWWWNWUrgroRRrD 
DARA USSRISWRAYLSSRVRG 


pa 
> 
N 


PATHOLOGICAL CONNECTIONS: 
NONE . 
SUBORDINATE ROUTINES: 
NONE . 
FUNCTIONAL SIDE-EFFECTS: 
NONE . 
CALLING SEQUENCE : 
CALL PACK IN <DSTADR,SRCADR,LENGTH>. FOR INPUT PARAMETERS 
REFER TO ABOVE INPUTS:. 


E: 
R3 IS USED AS A BYTE ASSEMBLY AREA 
R4 IS USED TO HOLD THE SIGN OF THE STRING (+ = #14,- = #15). 


ROUTINE PACK <DSTADR,SRCADR,LENGTH> 


PACK: 
LET RO := DSTADR(RS) 
016500 DSTADR(R5) ,RO 
LET R1 := SRCADR(RS) 
016501 SRCADR(R5) ,R1 
LET R2 := LENGTH(RS) CLR.BY 470000 
016502 000004 MO LENGTH(RS) ,R2 
042702 . #70000 ,R2 


STORE SIGN OF STRING IN R4 





D 10 
KEF 11-8 CIS DIAGNOSTIC MACY11 ang! 14-MAR=80 08:04 PAGE 311 
08-FEB-80 13:43 PACK = PACK DECIMAL STRING ROUTINE 


IF (R1)+ EQ #0 THEN :SIGN IS + 
005721 (R1)+ 
001003 $52343 
LET R4 := #14 
012704 #14,R4 
ELSE :SIGN IS - 
000402 $52344 
$52343: 
LET R4 : 


012704 ee #15,R4 
$52344: 


REAVSS 


IF LENGTH IS ZERO, THEN SIGN STRING AND EXIT; ELSE IF 
STRING LENGTH IS EVEN, STORE THE MSD (STRING LENGTH IS 
NOW ODD) .NOW STORE ALL BUT THE LAST DIGIT. BUILD LSD 
& SIGN AND EXIT. 


i a ed ed ed etd td od ed 


AARARA AAA AANA AAA AAA OO 
BELKFRAVLESELE 


et ot ts 8 2 oS 2 So oS ot 


: 


IF R2 EQ #0 THEN STRING LENGTH = 0 

005702 R2 

001002 $52345 
LET (RO) :B= R4 SIGN THE BUFFER AND EXIT 

110410 R4, (RO) 


ELSE 
000425 $52346 


$52345: 
IF #BITOO NOTSETIN R2 THEN’ ;LENGTH IS EVEN & > 0 


032702 #81T00,R2 
001002 BNE 


$52347 
LET (RO)+ :B= (R1)+ :MOVE THE EVEN NIBBLE 
112120 (R1)+,(RO)+ 
LET R2 := R2 - #1 DEC NIBBLE COUNTER 
005302 R2 


ENDIF 

$52347: 
WHILE R2 NE #1 DO 

$52350: 


020227 R2.#1 

001410 $52351 
LET R3 :B= (R1)+ :GET A BCD 

112103 (R1)+,R3 
INLINE <ASH #4,  R3> :SHIFT IT TO THE HIGH NIBBLE 

072327 . R3 
LET R3 :B= R3 SET.BY (R1)+ sPACK IN LOW NIBBLE 

152103 (R1)+,R3 
LET (RO)+ :B= R3 :STORE RESULT 

110320 R3, (RO) + 
LET R2 := R2 - #2 :DEC NIBBLE COUNTER 

162702 #2,R2 

ENDDO 
000765 BR $52350 


$52351: 
LET R3 :B= (R1) GET LAST BCD 
055754 111103 (R1) ,R3 


REBERRGSVSLS 
SSS 
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055756 INLINE <ASH #4, R3> SHIFT IT TO THE HIGH NIBBLE 
0 072327 000004 ASH #4, R3 
LET R3 :B= R3 SET.BY R4 sADD SIGN 
150403 BISB R4 ,R3 
LET (RO) :B= R3 ;STORE LSD & SIGN 
110310 MOVB R3, (RO) 


ENDIF 
$52346: 
ENDRTN 


$52341: 
$52342: 
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055770 


12737 


13:43 


056260 
000340 


122262 
056264 
056162 


122426 
122416 


000406 
000406 
000404 
000634 


122330 


ACK = PACK DECIMAL STRING ROUTINE 


Iii it titi itittitititiititiitiit + 
“SBTTL SCOPE HANDLER ROUTINE 

Titi iii iii itit ii ieiiitiiiiiilititizitititiiititititi titi tt! 
:STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

3 *AND LOAD ne TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
>*AND LOAD THE ERROR FLAG (ERRFLG) INTO DISPLAY<15:08> 

zsTHE SWITCH att PROVIDED BY THIS ROUTINE ARE: 

* 


ON TEST 
;*Sw11= 1 INHIBIT ITERATIONS 


*CALL 
:* ;-SCOPE=I0T 


SSCOPE : 
C 2e TEST FOR CHANGE IN SOFT-SWR 
#B1T14,aSWR LOOP ON PRESENT TEST? 
SOVER SIYES IF SW14=1 
hla catia ne a 


$PASS ow FIRST PASS OF PROGRAM 
1$ INHIBIT ITERATIONS 
SICNT INCREMENT ITERATION COUNT 
STIMES,SICNT 33 CHECK THE NUMBER OF ITERATIONS MADE 
SOVER :BRANCH IF MORE ITERATION REQUIRED 
1$: #1,$1CNT ; REINITIALIZE THE ITERATION COUNTER 
MO SMXCNT ,STIMES SET NUMBER OF ITERATIONS TO DO 
$SVLAD: STSTNM ;COUNT TEST NUMBERS 
MO STSTNM,STESTN ISET TEST NUMBER IN APT MAILBOX 
(SP) , SLPADR 


C ERRFLG ee 
SOVER: STSTNM,@DISPLAY ;; NUMBER 
MOV SLPADR, (SP) :sFUDGE RETURN ADDRESS 
RTI zeFIXES PS 
SMXCNT: .WORD 100 2 «MAXIMUM NUMBER OF ITERATIONS 


J REAR EREREEEEKEEEKKEREEREKEREEEEREREEEEKEEEEEEKEEREKKKKEEE 
“SBTTL POWER DOWN AND UP ROUTINES 
JAAR ERE AERA EERE 
= POWER DOWN ROUT INE 
$PWRDN: MOV ASILLUP ,a#PWRVEC spser FOR FAST UP 
#340, @4PURVEC+2 ; :7 
) RO ON STACK 


:2PUSH R4 ON STACK 
72PUSH RS ON STACK 
77PUSH @SWR ON STACK 


ee 
ee 


AVE SP 
#SPWRUP ,AAPWRVEC ;;SET UP VECTOR 
72 7 HANG UP 


LLU 


POWER UP ROUTINE 





16309 


—— 
no 
Ww 


oe ao 
WWWNWWWNWAWAG 


— 


— 
RXAAAAAAO 
a cad aa aah anh a a et a ed 


WONAUSWN—O 


J 
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056377 


ae 


13:43 


122214 
056110 
000340 


4 
060630 


001200 


060150 


MACY11 30A(1052) 
POWER DOWN AND UP ROUTI 


ASILLUP ,a#PWRVEC egSET FOR FAST DOWN 
Af sp T SP 


000024 


122116 


000420 
122070 
000546 


000650 
056376 


SPWRUP : 


G 10 
14-MAR-80 ri bso: PAGE 314 


MOV 
MOV 


HALT 
JMP 


SSAV: 
$SAVR 
SSAVR6 
1$ 


fear 


(PC) +, (SP) 
PHAL T 


@ASTART 


SEQ 0329 


SIWAIT LOOP FOR THE TTY 
+t FOR THE INC 


OF WORD 
; sPOP STACK INTO @SWR 


: <POP 0 
#SPWRDN, @#PWRVEC’ : SET UP THE POWER DOWN VECTOR 
4340 ,@APWRVEC+2 ;;PRIO:7 
A#PWRMSG ,MSGADR 


REPORT THE POWER FAILURE 
S IRESTART AT PHALT 
7 RESTART ADDRESS 


3-THE POWER UP SEQUENCE WAS STARTED 
32 _BEFORE THE POWER DOWN WAS COMPLETE 
:sPUT THE SP HERE 


sHALT HERE AFTER A POWER FAIL 
sRESTART THE TEST AT THE BEGINNING 


BIAS IOIOIIISISIOISIII ISI IOIUIDIOIOIOIIIOIIOIIIOIIOIIII IID III 
 SBTTL ERROR HANDLER ROUTINE 

DAA IIIS IIIOISIIIISIIISIOIIIIOIO OUI IR ot 
:*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
; *SAVE THE By ITEM ae AND 


:*SW13=1 
ERROR: 
7$: 


1$: 


20$: 


21$: 


;*AND GO TO SERRTYP ON ERR 
; * THE lat OPTIONS PROVIDED BY THIS ROUTINE ARE: 
;*SW15=1 HALT RR 


THE ADDRESS OF THE ERROR CALL 


INHIBIT ERROR TYPEOUTS 


_ LG 
$TSTNM,@DISPLAY 
SERTTL 

(SP) , SERRPC 
#4, SERRPC 
#B1T13,aSWR 
20$ 
PC,SERRTYP 
#SCRLF ,MSGADR 
#APTENV, SENV 
2s 


ERR,21$ 
ata 


0 


7: TEST FOR ag IN SOF T~SwWR 
23 SET THE ERROR FLAG 

DON'T LET THE FLAG GO TO ZERO 
: DISPLAY TEST NUMBER AND ERROR FLAG 


THE NUMBER OF ERRORS 
3:GET ADDRESS OF ERROR INSTRUCTION 


23SKIP ae a IF SET 
:SKIP_TYPEQU 
::GO TO USER ERROR ROUTINE 


7 RUNNING IN APT MODE 
2éNO, SKIP APT ERROR REPORT 

[SET ITEM NUMBER AS ERROR NUMBER 
UREPORT FATAL ERROR TO APT 


KEF 11-8 CIS cr MACY11 30A(1052) 
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000777 
005777 
100002 


000000 
104406 
022737 
001001 


000207 


012737 
104401 
01 oreo 


122020 


055214 


000420 
000544 
000472 
056570 
121726 
000443 


000042 


000546 
000472 
000472 
000546 
000546 


000472 
000472 


000472 
000546 


000546 


ERROR HANDLER ROUTINE 
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HALT ON ERROR 
; SKIP IF CONTINUE 
T ON ERROR! 
7: TEST FOR CHANGE IN SOFT-SWR 
2 ACT=11 AUTO=ACCEPT? 
;BRANCH IF NO 


RROR TABLE’ (S$ERRTB), 
TYPE ERROR HEADER 


TYPE APPROPRIATE ERROR MESSAGE 


: TYPE ONE SPACE 

: TYPE THE ERROR PC 

: TYPE FAILING CONTROL CHIP NUMBER 
i TYPE CARRIAGE-RETURN/L INE-FEED 


sADDRESSES OF ERROR MESSAGES 


sADDRESSES OF CHIP NUMBER MESSAGES 


223: BR 228 3 ¢APT ERROR LOOP 
2s: TST aSwR 
BPL 3$ 
HALT 
CKSWR 
3$: 
CMP #SENDAD ,a#42 
BNE 6$ i 
HALT oe 
6$: 
RTS PC 7 RETURN 
PERERA RRA RARER RARER EERE EE 
°SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
ggg mig ign tind i tcc 
*STHIS ROUTINE USES THE ‘ERROR TYPE NUMBER'' (ERR) TO DETERMINE WHICH 
+ *ERROR 1S TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERR 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
SERRTYP: 
V #ERRHDR ,MSGADR 
TYPE 
MOV ERR, ERRTMP 
DEC ERRTMP 
ASL ERRTMP 
ADD #ERRTBL ,ERRTMP 
V @ERRTMP ,MSGADR 
TYPE 
MOV #SPACE1,MSGADR 
TYPE 
V SERRPC ,-(SP) 
TYPOC 
V CTL, ERRTMP 
SUB #4, ERRTMP 
ASL ERRTMP 
ADD #CTLTBL,ERRTMP 
MOV @ERRTMP ,MSGADR 
TYPE 
V #SCRLF ,MSGADR 
TYPE 
RTS PC 
ERRTBL: .WORD ERR1 
-WORD ERR2 
-WORD ERRS 
CTLTBL: .WORD CTL4 
-WORD CTLS5 
-WORD CTL6 
WORD CTL? 
-WORD CTL8 
-WORD CTLS 


DLE RAA EERE ERE REAE EAE 


-SBTTL TYPE ROUTINE 
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CPI iii irititititiiiiiiiiitiiiiii itt t 

{ #ROUT INE TO TYPE ASC1Z ik nae MESSAGE MUST TERMINATE WITH A 0 BYTE. 

 * THE ROUTINE WiLL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

;*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


105737 : STPFLG ei THERE A TERMINAL? 
100002 BP 1$ sé IF YES 
37HALT HERE IF NO TERMINAL 
3$ : sLEAVE 
RO,-(SP) SAVE RO 
MSGADR ,RO GET ADDRESS OF ASCIZ STRING 
MAPTENV, SENV 3 RUNNING IN APT MODE 
62$ 3:NO,GO CHECK FOR APT CONSOLE 
#APTSPOOL , SENVM + ¢ SPOOL MESSAGE TO APT 
62$ 3NO,GO CHECK oo CONSOLE 
PC, SATY3 i} SPOOL MESSAGE TO APT 
#APTCSUP , SENVM T CONSOLE SUPPRESSED 
$ ‘IVES, SKIP TYPE OUT 
(RO) +,=(SP) : ¢PUSH CHARACTER TO BE TYPED ONTO STACK 
4$ :éBR IF IT ISN'T THE TERMINATOR 
(SP) + 3: IF TERMINATOR POP IT OFF THE STACK 
(SP)+,RO REST ORE RO 


i ETURN 
000011 : la 7 BRANCH IF <HT> 
000200 eae ; ;BRANCH IF NOT <CRLF> 


(SP) + 7sPOP <CR><LF> EQUIV 
000443 #SCRLF ,MSGADR 
2a TYPE A CR AND L 


057054 SCHARCNT 
2s 


BR 
057010 : PC ,$TYPEC ; HARACTER 
000434 : SFILLC,(SP)+ 33 ad tay cent fran: CHARS .? 


000432 $SNULL ,~ (SP) 33 F ‘o> toe “NEEDED 
000001 : 1(SP) a3 LL NEED TO BE TYPED? 
6$ 3 POP THE NULL OFF OF STACK 
057010 JSR PC ,STYPEC 
057054 SCHARCNT 
BR 7$ 


HORIZONTAL TAB PROCESSOR 


000040 8$: (SP) ; :REPLACE TAB WITH SPACE 
057010 9$: ec. $TYPEC :: TYPE A SPACE 
000007 057054 BIT Ae * SCHARCNT ; ]BRANCH IF NOT AT 


72 TAB STOP 
(SP)+ 3zPOP SPACE OFF STACK 
BR 2s 3:GET NEXT CHARACTER 
$TYPEC: avTPS 77WAIT UNTIL PRINTER IS READY 
057014 5 BP STYPEC 








J_10 
KEF 11-8 CIS DIAGNOSTIC MACY11 30A(1052)_ 14=MAR=80 08:04 PAGE 317 
O8-FEB-80 13:43 TYPE ROUTINE SEQ 0332 


000002 177566 2(SP) ,a#TPB LOAD CHAR TO BE TYPED INTO DATA REG. 
000015 000002 ee al HIS SON it he A CARRIAGE RETURN? 


H IF NO 
057054 ah ::YES--CLEAR CHARACTER COUNT 


000012 1$: EIS CHARACTER A LINE FEED? 
STYPEX : sBRANCH_IF YES 
INCB ( 3-COUNT THE CHARACTER 
SCHARCNT : . WORD 7: CHARACTER COUNT STORAGE 
057056 STYPEX: RTS 


FERRARA EERE REREKREEEE 

°S8TTL BINARY TO OCTAL (ASCII) AND TYPE 

FERRARA AEE EERE REKKEERREREREKKKEE 

:*THIS ROUTINE IS USED TO CHANGE A 16~BIT BINARY NUMBER TO A 6-DIGIT 
S*OCTAL (ASCII) NUMBER AND TYPE IT 

i s$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


NUM, =-(SP) ; ;NUMBER TO BE TYPED 
‘:CALL FOR TYPEOUT 
N :zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
M 7zM=1 OR O 
321=TYPE LEADING ZEROS 
32 0=SUPPRESS LEADING ZEROS 


‘ #STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
i #$TYPOS OR $TYPOC 
** 2 


MOV NUM, = (SP) : s<NUMBER TO BE TYPED 
TYPON 7eCALL FOR TYPEOUT 


+t 
91 ain HERE FOR TYPEOUT OF A 16 BIT NUMBER 


MOV NUM, -(SP) NUMBER TO BE TYPED 
TYPOC SICALL FOR TYPEOUT 


: a(SP) ,~(SP) :PICKUP THE MODE 
057307 MO 1(SP)>$OF ILL + ¢LOAD ee FILL SWITCH 
(SP) + gS0MODE + +1 R OF DIGITS TO TYPE 
7 ZADJUST RETURN ADDRESS 


BR TPON 
000001 057307 : 72SET THE ZERO FILL SWITCH 
000006 057311 MO 46, SOMODE +1 22SeT FOR SIX(6) DIGITS 
000005 057306 : a 72SET sa ITERATION COUNT 


N 
_ 


-—OoO00-—— 
eed eed ed eed ed 
RE 


- R5 
057311 a R4 SIGET THE NUMBER OF DIGITS TO TYPE 


000006 3; SUBTRACT IT FOR MAX. ALLOWED 
057310 Re SONOS Ho os IT FOR USE 

057307 ;GET THE ZERO FILL SWITCH 
000012 MOV eae 33 THE ray! NUMBER 


3 T D 
R5 ‘ TROTATE MSB INTO. + % 
3$ ::GO DO MSB 


ee 
YRRRS 


o=-—— 
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2s: 32FORM THIS DIGIT 


MO 
3$: R GET LSB OF THIS DIGIT 
057310 3 SOMOD ZITYPE THIS DIGIT? 


7$ :BR_IF NO 
177770 . 33GET RID OF JUNK 
BNE 4$ ; TEST FOR 


3SAVE FOR TYPING 
2260 hy i DIGIT 


: sBR IF MORE TO DO 
IF DONE 


3 INSURE LAST DIGIT ISN'T A BLANK 
:GO DO THE LAST DIGIT 

TIRESTORE R5 

He $ Lh, R4 

3 RESTORE R3 

7sSET THE STACK FOR RETURNING 


3 sRETURN 
8$: 2 ¢ STORAGE FOR ASCII DIGIT 


SOCNT: .BYTE 
057307 SOFILL: .BYTE ITCH 
057310 SOMODE: .WORD ‘NUMBER OF DIGITS TO TYPE 


JDO III IOISISIIOISISIIIDIIIIOIIOIDIIOIOIIOIOIOIOIOIOIOIOIOI OOOO OTT TTOT TT OT TTT TTT IE 
- SBTTL TTY INPUT ROUTINE 
RII ISIC IOI IOI IIIIOII IOI IOI ID tk 


-ENABL LSB 


Ei ii titi titi iii iii titi ii iii iii iitiiiiiiiiiiiiiciiiitsy 
z*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
:*ROUTINE IS oe FROM THE TRAP HANDLER, WILL 
i sSERVICE THE TEST FOR CHANGE IN SOFTWARE Sul TCH REGISTER TRAP CALL 
RATING IN TTY FLAG MODE. 
000176 000426 ScKSUR: CMP AMSWREG , SWR 2315S THE SOFT-SWR SELECTED? 
BNE 5$ IF NO 


:BRANCH 
177560 a#TKS 22 CHAR THERE? 
BP 15$ :IF NO, DON'T WAIT AROUND 
177562 arTke ~(SP) E THE CHAR 
177600 #177 (SP) : STRIP-OFF La, ASCII 
+ 


BN 15 :: TO ss 
000422 000001 $AUTOB, #1 SARE WE RUNNING IN AUTO-MODE? 
15$ BRANCH IF YES 





ad aad aa cn cae ae a eas a cd 
WONAUSWN-O 


WN 


16609 
166 
166 
166 
166 
166 
166 
166 
166 
166 
166 
16620 
1662 
1662 
1662 
16624 
1662 


ere CIS 6 OT) hae 
O8-FEB-80 13:43 


057356 012737 060103 
0 104401 
060110 
000176 
060121 


0574 177560 

057424 

057426 113746 177562 
4 042716 177600 


021627 000025 
001007 
060076 
000006 


000015 
000004 
000002 
000006 
000443 
000423 
000100 
057010 
000060 


000067 


000060 
000002 


000002 
177776 
000442 


MACY11 en 4 


000546 
000546 


000546 


000546 


120722 
000546 
000001 
177560 


INPUT ROUTI 


T 
SGTSWR: “ V 


17$: 
18$: 


, BR 
-DSABL LSB 


A#SCNTLG,MSGADR 
#SMSWR ,MSGADR 
SWREG , = (SP) 
#SMNEW ,MSGADR 
=(SP) 


-(SP) 
a4TKS 
7$ 


@4TKB,-(SP) 
#°C177, (SP) 


(SP) ,#25 
A#SCNTLU,MSGADR 


SP) ,aSWR 
#SCRLF .MSGADR 
SINTAG,#1 
#100, a#TKS 
PC ,$TYPEC 
(SP) ,#60 
(SP) #67 
#60, (SP)+ 
2(SP) 


2(SP) 

~2(SP), (SP) 
#$SQUES ,MSGADR 
20$ 


L_10 
ee 08:04 PAGE 319 


3Z,ECHO THE CONTROL=-G (*G) 

3: TYPE CURRENT CONTENTS 

72SAVE SWREG FOR TYPEOUT 

3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
377PROMPT FOR NEW SWR 

37;CLEAR COUNTER 

33 THE NEW SWR 


3:CHAR THERE? 
72:1F NOT TRY AGAIN 


:-PICK UP CHAR 
7sMAKE IT 7-BIT ASCII 


3211S IT A CONTROL-U? 
3 3BRANCH IF NOT 


scYES. ECHO CONTROL-U (“U) 
E PREVIOUS INPUT 
ZILET'S TRY IT AGAIN 


21S IT A <CR>? 
CH IF NO 

33YES, IS _ IT THE FIRST CHAR? 
CH_IF YES 


77SAVE NEW SWR 
2CLEAR UP STACK 


2 sECHO <CR> AND <LF> 
;R : a KBD INTERRUPTS? 


TTY KBD INTERRUPTS 


::STRIP-OFF ASCII 
t:1S THIS THE FIRST CHAR 
33BRANCH IF YES 


23NO, SHIFT PRESENT 
CHAR 


22GET THE NEXT ONE 


73 TYPE ?<CR><LF> 
72SIMULATE CONTROL-U 


SEQ 0334 
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INPUT ROUTI 


FERRARA EKEREREEREEEEEEREEEE 


057624 
000004 
el 177560 1$: 
05 13766 177562 000004 
057650 042766 177600 000004 
000004 000023 
1 ete 177560 2$: 
057674 113746 177562 
05 177600 
022627 000021 
366 


o355 000004 000140 3$: 
057724 probe! 000004 000175 
0577 042766 000040 000004 
057742 000002 


: MOV (SP) ,=(SP) 
MO 


:THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


RDCHR 3¢ INPUT A_SINGLE CHARACTER FROM THE TTY 
RETURN HERE 3 = CHARACTER IS ON THE STACK 
:-WITH PARITY BIT STRIPPED OFF 


3sPUSH DOWN THE PC 
4(SP) ,2(SP) ; 33 SAVE THE PS 
a4TKS FOR 


BPL 1$ "A CHARACTER 

MOVB  @#TKB,4(SP) t:READ THE TTY 

BIC #*C<177>,4(SP) 3GET RID OF JUNK IF ANY 
CMP 4(SP) 


W238 ::1S IT A CONTROL-S? 
BNE [BRANCH IF NO 
TSTB  aATKS :3WALT FOR A CHARACTER 
BPL 2$ [LOOP UNTIL ITS THERE 


MOVB  @4TKB,-(SP) 33GET CHARACTER 
BIC #*(177, (SP) = :MAKE IT 7-B1T ASCII 
CMP (SP)+, M21 t:1S IT A CONTROL-O 


BNE site NOT DISCARD It. 

BR 1$ 2 RESUME 

CMP 4(SP) ,#140 ;1S_ IT UPPER CASE? 
BLT 4$ ‘BRANCH IF YES 

CMP 4(SP) #175 21S _IT A SPECIAL CHAR? 
BGT 4$ ; BRANCH IF YES 

BIC #40,4(SP) MAKE IT UPPER CASE 
RTI ::GO BACK TO USER 


SAAC IEE EIEIO ISOS SIS IESE ESSE UIST I IOnI Or iotties 


TATHIS mane WILL INPUT A STRING FROM THE TTY 


*CALL 


057744 34 $RDLIN 
057746 012703 060066 1$: 
057752 022703 060076 2s: 
057756 101405 

057760 

057762 112613 

057764 122713 000177 10$: 
057770 001005 

057772 013737 000442 000546 4$: 
060000 104401 

060002 000761 

060004 111337 060064 3$ 
060010 012737 060064 000546 
060016 104401 

060020 122723 000015 

060024 001352 

060026 177777 


105063 
060032 012737 000444 000546 


RDLIN 32 INPUT A STRING FROM THE TTY 
RETURN HERE 
22 TERMINATOR WILL BE A BYTE OF ALL 


: MOV R3,-(SP) 235A VE R3 


MOV ASTTYIN,R3 ae GET ADDRESS 


CMP WSTTYIN+8.,R3  3:BUFFER FULL? 

BLOS 4$ :BR IF YES 

RDCHR :7GO_READ ONE CHARACTER FROM THE TTY 
MOVB (SP)+, (R3) SIGET CHARACTER 

CMPB #177, (R3) 2::1S_IT A RUBOUT 

BNE 3$ 2eSKIP IF NOT 

MOV SQUES ,MSGADR 

TYPE TYPE A_‘?° 

BR TICLEAR THE BUFFER AND LOOP 


1$ 
MOVB (R3) ,9$ 


22ECHO THE CHARACTER 
MOV #9$ ,MSGADR 


TYPE 

CMPB #15, (R3)+ 3:CHECK FOR RETURN 

BNE $ sel IF NOT RETURN 
CLRB -1(R3) 72CLEAR RETURN (THE 15) 


MOV #SLF .MSGADR 


2 sADDRESS OF FIRST CHARACTER WILL 7, _ THE STACK 


SEQ 0335 
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ND.P11  O8=FEB-80 13:43 INPUT ROUT] 


9$: 

STTYIN: 
890123 ScNTLG: A 
053505 : .ASCIZ 


JAAR EREREEKEKKEKREREERKEKEEKEKEEEKEKEKEEREKRKEEEKERKEKE 


#STTYIN,4(SP) 
0 
0 


8. 
/*U/<15><12> 
/*G/<15><12> 


<15><12>/SWR = 


/ NEW = / 


octet A LINE FEED 
sRESTORE R3 


; ADJUST THE STACK AND PUT ADDRESS OF THE 
ee FIRST ASCII CHARACTER ON IT 


E 
; sRESERVE 8 BYTES FOR TTY INPUT 
ae TR OL | a 

sCONTROL *'G’’ 


*S8TTL APT COMMUNICATIONS ROUTINE 


FERRARA EERE EKKEKKEKEKEKKEKEREREEKEKEKEEEKEREEKEKEKKEEEKE 


112737 $A 1: MOVB 
112737 000001 : ~ 


000403 
112737 


105037 


#1,$FFLG 
#1, SMFLG 
SATYC 

#1,$FFLG 


RO,~(SP) 
R1,~-(SP) 
SMFLG 


10$ 
#APTENV,SENV 


#APTSPOOL , SENVM 
3$ 


@4(SP) ,RO 
#2,4(SP) 
SMSGTYPE 


1$ 
RO, $MSGAD 
(RO) + 


38 

SMSGAD ,RO 

RO 

RO, $MSGLGT 

* SMSGTYPE 

PC ,STYPE 

SFFLG 

SENV 

12$ 

SMSGTYPE 

11$ 

a4(SP), theta 
#2,4(SP) 


$MSGTYPE 
SFFLG 


3-TO REPORT FATAL ERROR 
::TO TYPE A MESSAGE 


:2TO ONLY REPORT FATAL ERROR 


3=PUSH RO ON STACK 
:sPUSH R1_ON STACK 
AME TYPE A MESSAGE? 


: :OPERATING UNDER APT? 
: s SHOULD SPOOL MESSAGES? 
F NOT: BR 


33GET MESSAGE ADDR. 
RETURN ADDR. 
23 SEE IF" BONE W/ LAST XMISSION? 
NOT: ‘WAIT 


z2PUT ADDR IN MAILBOX 
FIND END OF MESSAGE 


::SUB START OF MESSAGE 

bof MESSAGE LNGTH IN WORDS 
T LENGTH IN MAILBOX 

7:TELL APT TO TAKE MSG. 


23 CALL TYPE MACRO 
HOULD REPORT FATAL ERROR? 
s:1F NOT: BR 
: ERUNNING UNDER APT? 
::fINISHED ey MESSAGE ? 
32GET ERROR 
TURN ADDR. 


;BUMP RE 
7eTELl L abi TO TAKE ERROR 
7:CLEAR FATAL FLAG 





3; RETURN 
+s STORAGE FOR ASCII CHAR. TO TYPE 
RMINATOR 


mia 


PR PP PP we We De We We De We We We Ge Se Se Te Hs Ts Ts Ss He Te Ee Ee Es Ee Te Ee Ee Ee Es Es Es Ee Ee Ee Ts Te Es Es Ee Ee = 


rmrmrmrmmmnren mMmnrn 
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105037 060353 SLFLG :3CLEAR LOG FLAG 
105037 060352 SMFLG 
012601 (SP)+,R1 


ita 3 POP STACK INTO RO 


R URN 
SMFLG: 0 : MESS. FLAG 
$LFLG: 0 
SFFLG: 0 oe at FLAG 


APTSIZE=300-— 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 


IBAA IAI ISIC IDISISISISIIISIISIIOIOIIIOI ICIS IOI III ITI TOT ITI OIE 
~S8TTL TRAP DECODER 

Fed alabedalababaledelalaiatalelatolalabebelghatetalohelaialelalalaiaigheieleieialetaiaioteteiet ialaiptebatalotelpioiadelotate 
:STHIS ROUTINE WILL Ay THE LOWER BYTE OF THE ‘'‘TRAP’’ INSTRUCTION 
:*AND_USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

;*GO TO THAT ROUTINE. 


STRAP: RO,-(SP) sz SAVE RO 
MOV 2(SP) ,RO 32GET TRAP ADDRESS 
=-(RO) UP BY 2 


as K Y 
(RO) ,RO :3GET RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 


R 
STRPAD(RO).RO 3; INDEX TO TABLE 
RO :2GO TO ROUTINE 


3: THIS IS USE TO HANDLE THE ‘'GETPRI'* MACRO 


$STRAP2: MOV (SP) ,~(SP) 3:sMOVE THE PC DOWN 
MOV 4(SP) ,2(SP) 2 sMOVE THE PSW DOWN 
RTI z RESTORE THE PSW 


-SBTTL TRAP TABLE 


3*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE ‘'TRAP’’ INSTRUCTION. 


STRPAD: 
$ TRAP+1 TTY TYPEOUT ROUTINE 
TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
€ OCTAL NUMBER (AS PER LAST CALL) 
GET SOFT-SWR SETTING 
06) TEST FOR CHANGE IN SOFT-SwWR 
$SRDCHR TRAP 104407) TTY TYPEIN CHARACTER ROUTINE 
057744 3: CALL=RDLIN TRAP+10(104410) TTY TYPEIN STRING ROUTINE 


DIARRA EAE EREEREE ERK AEE REE 


uue 


[OO 
ONARRARARAAR 
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~SBTTL TELETYPE MESSAGES 


ESS SASALESARASEASSALALALAL AALS SEE ASE SEAR EE RR EE EST TS PP PPT TS SG 


TITLE: .ASCIZ <200>/F11 CIS DIAGNOSTIC TEST/<200> 


<200>/AN UNEXPECTED TIME-OUT TRAP OCCURRED/ 


genceneacas © 
WONAOUSWN—O 


ILLMSG: . <200>/AN UNEXPECTED ILLEGAL & RESERVED INSTRUCTION TRAP OCCURRED/ 


RRERER 


PWRMSG: .ASCIZ <200>/POWER FAILURE OCCURRED/ 


SPACE1: .ASCIZ 
020040 CTL4: .ASCIZ 23-*04/ 
025055 
020040 CTL5: .ASCIZ 23-*05/ 
026463 


020040 CTL6: .ASCIZ 23-*06/ 
025055 


CTL7: .ASCIZ 23-*07/ 


020040 
026463 


020040 CTL8: .ASCIZ 23-*08/ 
025055 
CTL9: .ASCIZ 23-*09/ 


S REE EEE EEREKREKKEEEEKK 


“SBITL TEST ERROR MESSAGES 


SEEKER AEE EEE ERE KEKE EERE 


ERRHDR: .ASCIZ <200><200>/ERROR PC CTL CHIP # 


021440 
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END.P1{ — 08-FEB-80 13:43 TEST ERROR MESSAGES SEQ 0339 

16865 061030 020040 020040 020040 | 
16866 061036 020040 000 ( 
16867 061041 103 051511 044440 ERR1: eASCIZ /CIS INSTRUCTION FAILURE/<200> ( 
16868 061046 051516 051124 041525 ( 
16869 061054 044524 7117 3 ( 
16870 061062 044501 052514 042522 ( 
16871 061070 200 ( 
16872 061072 044503 0123 047111 ERR2: eASCIZ /CIS INTERRUPT FAILURE/<200> ( 
16873 061100 042524 051122 050125 ( 
16874 061106 020124 0506 04611 ( 
16875 061114 051125 105 ( 
16876 061121 116 020117 051124 ERR3: -ASCIZ /NO TRAP ON ILLEGAL CIS CLASS OPCODE/<200> ( 
16877 061126 050101 047440 020116 ( 
16878 061134 046111 042514 507 ( 
16879 061142 020114 044503 020123 ( 
16880 061150 046103 051501 020123 ( 
16881 061156 050117 047503 042504 ( 
16882 061164 00 ( 
16883 ( 
16884 ( 
16885 EVEN ( 
16886 ( 
16887 ( 
16888 DIO IOI III III IIIT IOI TOOT OTTO TOTO TOT TOI OI TOT ( 
16889 -SBTTL BUFFERS & TABLES ( 
16890 DDSI IOI IOI IOI III ISI IOIIOIII IIIS UII TOTO TOI IO ( 
16891 Z ( 
16892 061°56 000100 BUFF1: .BLKB 100 ; CHARACTER STRING BUFFER 1 ( 
16893 061266 000100 BUFF2: .BLKB 100 ; CHARACTER STRING BUFFER 2 ( 
16894 061366 00040C TRANS: .BLKB 400 ; TRANSLATION TABLE ( 
p24 061766 000400 CHRSET: .BLKB 400 ; CHARACTER SET TABLE ; 
16897 ( 
16898 062367 -ODD ( 
16899 062367 000 -BYTE 0 ;RESERVED FOR SIGN FOR LEADING SEPARATE STRINGS ( 
1 062370 000040 DSBUF1: .BLKB 40 :DECIMAL STRING BUFFER 1 
16902 062431 -ODD ( 
16903 062431 000 . -BYTE O ;RESERVED FOR SIGN FOR LEADING SEPARATE STRINGS { 
Ly dae. 062432 000040 DSBUF2: .BLKB 40 ;DECIMAL STRING BUFFER 2 | 
16906 062473 -ODD ( 
16907 062473 000 -BYTE 0O ;RESERVED FOR SIGN FOR LEADING SEPARATE STRINGS ( 
ioe 062474 000040 DS.DST: .BLKB 40 ;DESTINATION DECIMAL STRING BUFFER 
16910 062535 -ODD ( 
16911 062535 000 -BYTE 0O ;RESERVED FOR SIGN FOR LEADING SEPARATE STRINGS ( 
ions 062536 000040 DS.EXP: .BLKB 40 ;DECIMAL STRING BUFFER OF EXPECTED RESULTS 
16914 ( 
16915 DOI IIIIDIOI III II IOI III IIIT IOI hiot tk tink ( 
16916 -SBTTL TEST CASES FOR CMPN AND CMPP ( 
16917 ZRII III IOI ISIC IOI III IIDIIUIOIIUIIIUIIUIOIIUIIIUIOUIOIIOI OR foto i tok ( 
16918 s ( 
16919 


16920 062576 000007 TCMP: .WORD 7 :# OF TEST CASES FOR CMPN & CMPP 
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ND.P1{  08-FEB-80 13:43 TEST CASES FOR CMPN AND C SEQ 0340 
16921 
16922 062600 000000 .WORD 0 :SRC1 LENGTH 
16923 062602 062670 .WORD (MP1 :SRC1 POINTER 
16924 062604 000000 .WORD 0 :SRC2 LENGTH 
16925 062606 062674 .WORD  (CMP1A :SRC2 POINTER 
16927 062610 000007 .WORD 7 :TEST CASE NUMBER 2 
16928 062612 062700 “WORD  CMP2 
16929 062614 000000 “WORD 0 
16930 062616 062712 -WORD (CMP2A 
16932 062620 000000 .WORD 0 :TEST CASE NUMBER 3 
16933 062622 062716 “WORD (MP3 
16934 062624 000020 -WORD 20 
16935 062626 062722 .WORD  (MP3A 
16937 062630 000011 .WORD 11 :TEST CASE NUMBER 4 
16938 062632 062744 “WORD  CMP4 
16939 062634 000011 “WORD 11 
6940 062636 062760 “WORD  CMP4A 
16942 062640 000006 .WORD 6 :TEST CASE NUMBER 5 
16943 062642 062774 “WORD CMP5 
16944 062644 000006 “WORD 6 
16945 062646 063004 -WORD  CMPSA 
16947 062650 000001 .WORD 1 ;TEST CASE NUMBER 6 
16948 062652 063014 “WORD  CMP6 
6949 062654 “WORD 
16950 062656 063020 WORD  CMP6A 
16952 062660 000006 .WORD 6 :TEST CASE NUMBER 7 
16953 062662 063024 - WORD CMP7 
16955 062666 063034 “WORD  (MP7A 
16957 
16958 062670 000000 CMP1: . WORD 0 :SRC1 SIGN 
16959 062672 “BYTE ‘DECIMAL STRING FOR SRC1 
16960 062674 EVEN 
16961 062674 CMP1A: WORD 0 :SRC2 SIGN 
16962 062676 “BYTE [DECIMAL STRING FOR SRC2 
16963 062700 EVEN 
16965 062700 000000 CMP2: . WORD 0 :SRC1 SIGN 
16966 062702 007 006 005 -BYTE 007,006,005,004,003,002,001 [DECIMAL STRING FOR SRC1 
16967 062705 004 003 002 
16968 062710 001 
062712 EVEN 
16970 062712 000000 CMP2A: .WORD 0 :SRC2 SIGN 
16971 062714 “BYTE “DECIMAL STRING FOR SRC2 
16972 062716 “EVEN 
16974 062716 17777 (MP3:  .WORD -1 :SRC1 SIGN 
16975 062720 0 “BYTE [DECIMAL STRING FOR SRC1 
16976 062722 EVEN 





ony a 


ND.P1{ 


17012 


WINN 
Sadddaasa 
Norn eS a ao 
 ~SOMNOnRW 
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062722 
24 


177777 


002 
011 
177777 
004 
063020 
000000 


011 


011 


004 
007 


004 
007 


005 


CMP3A: 


CMP4: 


CMP4A: 


CMP5: 


CMPSA: 


CMP6: 


CMP6A: 


CMP7: 


CMP7A: 


F 11 
14-MAR=80 08: oan "PAGE 326 
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- WORD 
-BYTE 


-1 ;SRC2 SIGN 
001,000,011,000,002,000,010,000,003,000,007,000,004 ,000,004 ,000 


-1 
001 ,002,003,000,005,006,007,010,011 


-1 
001 002,003,004 .005,006,007,010,011 


0 

002.001 ,004,011,040,007 
0 

002,001 ,004,011,040,007 
-1 

004 

0 

004 


0 
002,003,004 ,005 006,007 


0 
003,004 ,005,006,007 


-SBTTL TEST CASES FOR ASHN AND ASHP 


MASSER SSSSLASALELASELASLS ESAS ELSES ESE ESSE SERS REESE SSCS SS CSCS e Sa. oo 


: TABLE OF TEST CASES FOR ASHN AND ASHP 


° 
iti tte tee e ee eee eee RRSSSSSEESLEELESESESESEESE SELES ERE E EERE ES | 


DECIMAL STRING FOR SRC2 


:SRC1 SIGN 
:DECIMAL STRING FOR SRC1 


:SRC2 SIGN 
DECIMAL STRING FOR SRC2 


:SRC1 SIGN 
:DECIMAL STRING FOR SRC1 
iSRC2 SIGN 
:DECIMAL STRING FOR SRC2 


:SRC1 SIGN 
:DECIMAL STRING FOR SRC1 


iSRC2 SIGN 
DECIMAL STRING FOR SRC2 


:SRC1 SIGN 
sDECIMAL STRING FOR SRC1 


3SRC2 SIGN 
DECIMAL STRING FOR SRC2 


SEQ 0341 
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END.P11  O8-FEB-80 13:43 TEST CASES FOR ASHN AND ASHP SEQ 0342 
17033 063044 000017 TASH: .WORD 15. :# OF TEST CASES FOR ASHN & ASHP 
17035 063046 000005 .WORD 5 zSRC LENGTH 
17036 063050 000005 “WORD 5 [DST LENGTH 
17037 063052 000 -BYTE 0 ‘SHIFT COUNT 
17038 063053 000 -BYTE 0 SROUNDING DIGIT 
17040 063054 .WORD 0 :TEST CASE NUMBER 2 
17041 063056 000017 v 17 
17042 063060 BYTE 0 
17045 063061 000 “BYTE 0 
17045 063062 000032 .WORD 32 :TEST CASE NUMBER 3 
17046 063064 000032 32 
17047 063066 -BYTE 0 
17048 063067 007 “BYTE 7 
17050 063070 000025 WORD 25 :TEST CASE NUMBER 4 
17051 063072 000025 25 
17052 063074 377 BYTE <1 
17055 063075 005 BYTE 5 
17055 063076 000014 .WORD 14 ;TEST CASE NUMBER 5 
17056 063100 000014 14 
17057 063102 377 “BYTE -1 
17058 063103 006 ‘BYTE 6 
17060 063104 000006 .WORD 6 :TEST CASE NUMBER 6 
17061 063106 000006 é 
17062 063110 001 “BYTE 1 
17063 063111 006 “BYTE 6 
17065 063112 000010 .WORD 10 :TEST CASE NUMBER 7 
17066 063114 000011 “WORD 11 
17067 063116 001 “BYTE 1 
17068 063117 ‘BYTE 0 
17070 063120 000005 WORD 5 : TEST CASE NUMBER 8 
17071 063122 -WORD 6 
17072 063124 002 BYTE 2 
17078 063125 -BYTE 0 
17075 063126 000016 .WORD 16 :TEST CASE NUMBER 9 
17076 130 4 
17077 063132 363 “BYTE -15 
17078 063133 BYTE 0 
17080 063134 000020 .WORD 20 :TEST CASE NUMBER 10 
17081 063136 000010 10 
1 063140 360 ‘BYTE 20 
17083 063141 -BYTE 0 
17085 063142 000012 .WORD 12 ;TEST CASE NUMBER 11 
7 063144 7 » ¥ 
17087 063146 006 “BYTE 6 
7 063147 000 BYTE 0 
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TEST CASES FOR ASHN AND ASHP SEQ 0343 


TEST CASE NUMBER 12 
TEST CASE NUMBER 13 


: TEST CASE NUMBER 14 


— 
GRASS 


TEST CASE NUMBER 15 


a et as SS 2 
SER 


NNNNN NN 
ee ed ed ed ed od 


— 
Oo 


t 
E 
t 
E 
E 
E 
¢ 
¢ 
F 
] 
] 
] 
] 
] 
] 
] 
] 
] 
] 
] 
] 
] 
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L 
L 
L 
L 
L 
L 
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-SBTTL ADDN/SUBN TEST DATA 


SRR RARER AREER EEE REAR EERE ERE EERE REE 


: TABLES FOR ADDN AND SUBN 


SRE AREER EERE EEE EERE 


34 OF TEST CASES 
;SRC1 LENGTH 
:SRC1 PTR 

3SRC2 LENGTH 
3SRC2 PTR 

;DEST LENGTH 
;DEST PTR (SUM) 
sCC.EXP (SUM) 
sDEST PTR (DIFF) 
3CC.EXP (DIFF) 
:SRC1 >SRC2, SUM +,DIFF - 


:SRC1 +,SRC2 -, SUM & DIFF - 
:SRC1 -,SRC2 -,SUM -, DIFF + 


sSRC1 = + 


-SRC2 0,DEST TRUNCATED WITH 
:SUM = +,DIFF = = 
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063770 . ADD58 
000002 . 


ADDSC 
12 


8. DEST LENGTH = 0 
ADD6 

9. 

— 

_—— 

ADD68 

6 

0 ;SIGN1 

5.9. .7,4,3.8. o¥ 6.6.7.8. ot sles 0,6 


BURARAVASIIIRAN 


co 
Ye) 


;SOURCE STRING 1 


0 :SIGN2 
Vel stvtete! 6,9. ePode@el oe 4,1 6.2 


NNN NNSA NSN NSS o 


— eS SS SS Ss SS Sh 2 SB SS SS SS SS Ss SS SS SS Sh SS SS Ss Ss SS os Ss 


BELEFRALLES 


SOURCE STRING 2 


28 


NYP IIII5 
Wh 


0 :SIGN3 
0.0.0,2.3.4.0,6.5,5,1,2,0,2 


3 


SRR 


6,0,7,0.6.8. 


Se 


DEST STRING 


Nonononongony 
a ee ee ee ee 


0 
0.0.0,1.1.4,5.7.7,8.,7,8..6 


6.9. .8..1.2.5.6 


NoMoNononys 


VIS OONAARW sO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 


seppossss SRESESS 


MN 
NON 
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001 
002 
003 


002 
011 
002 


177777 
001 


5 
006 
0 


KEF 11-8 CIS Kirt ales MACY11 30A(1052) 


01 


K 11 
14-MAR=80 08:04 PAGE 331 


ADDN/SUBN TEST DATA 


ADD2: . WORD 
-BYTE 


-EVEN 


- WORD 
-BYTE 


-EVEN 


- WORD 
-BYTE 


- WORD 
-BYTE 


- WORD 
-BYTE 
- EVEN 
- WORD 
-BYTE 


- EVEN 


ADD3B: .WORD 
-BYTE 


- WORD 
-BYTE 


- EVEN 


Q 
3,1,5,9.,2,6,5,3,8.,0 


C 
1,7,6,3.,2.1 4,1 of off 


0 
Pe ee ee 


-1 
1,3,9.,6,0,5,1,2,0,8. 


0 
4,2,3,1.,1.,7,9.,6.7,9. .6 


-1 
7,9. 0326,522020247 28201 


-1 : 
0,3,7.0,5,3,4.2,5,9..8.,5 


-1 
1.2.1 .6,7.7.0,1.9. 5.767 
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063650 177777 ADD4: 
063652 004 

011 

007 


-WORD =1 

BYTE Gol cb Po cdetel oF ol ebelel Ve cd Bech 
006 

011 

004 


177777 
011 
063700 
177777 
004 


011 
007 


006 
001 000 « 1,8.,0,2,2,1 
002 002 


-1 
4.7.2.9. pleteFal at 6 


0 
Gol cb oD. Sobol of ol cb 


1,7,8..3.4,7 


: 


0 
4.0.1,7.7.7.9..6,3.2.5.8..8..1 


ddidacdddad 
WONAUSWN—O 


0 
7,9.,6,3,2,5,8.,8..1 


REAR RR 


AA 


-1 
7,9. 3.2.58. 8.61 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


aes 








CJKDGA 


17335 


SSS: 
SESESES SES 


Solstoloiieiteen 


DAMNAA AAT 
WONAUSWN—OOON 


aaivololois 
gaEy 


Bane 


eee 


aan 


a ee ed ee a ke ed a ed ed ed ed nd ed td dd 
sagas 
WN = SVSNOURUNIS 


END.P1{ 


08-FEB-80 1 


064102 
064102 
070102 
070102 


002000 


000001 


ADDN/SUBN TEST DATA SEQ 0348 
ADD6: .WORD 0 
<BYTE 1,7,9.,3,3,9.,8-.1 
EVEN 
ADD6A: .WORD 0 
“BYTE 8.,8.,3,9..2,7-6.4,9. 
ADD6B: .WORD 0 
‘BYTE 0 
EVEN 
3% 
; INLINE TEST CASE (ADDNI & SUBNI) 
TADDI: .WORD 010020 :SRC1 DESCRIPTOR 
“WORD #DSBUF1 
- WORD 010021 :SRC2 DESCRIPTOR 
“WORD 010024 :DEST DESCRIPTOR 
“WORD #DS.DST 
z+ 
: INLINE TEST CASE (ADDPI & SUBPI) 
TADDPI: .WORD 070020 
“WORD #DSBUF1 
“WORD 070021 
“WORD  #DSBUF 
“WORD 070024 
"WORD #DS.DST 
INLINE <SPACE: .BLKW 2000> 
SPACE: .BLKW 
INLINE <SPACEY:> - 2000 


- END 
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SPACEY: 
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ADDN 
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08-F EB-80 
76050 


13:43 


85 


AUNSIES=S 
5 


& 


NVIWOO OS P00 Os M00 


cae a a ac a cae a ce ce ed cael ed ee ed ed ed md ED 
AAAQUVUUIS & RoW 


“IOs 
‘Oo 


at Ss Ss ss —) Ss 9 9 — 9 — 9 hs 9 >) 9) -s 3) > 4 9 ss 
WwW 


NN NNN NN NNN NNN NNN NNO 


~— 
NN 
NVI 
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9935 
10110 
12966 
13124 
10980 


10996 
17126 


— SV es — o 
WoOOo—VWSL WO 
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794 
842 
2207 


173474 
663 785 
835 


2183 160054 


7514 
1319* 


3076* 
15937 

1201 

2930 


849 
1323* 
3264* 

15974 
1224 
3214 


1914* 
3682* 


1286 
4182 


1918* 
3856* 


1718s 
13851 


2165* 
3860* 


1878 
13923 


2189* 
4017* 


2213* 
14187 


2438* 
4021* 


2405 
14361 


2442s 
4204* 
16011 

1269* 


2644 3527 14461 


4544 6429 6439 §=11894 11952 12027 12223 12320 12381 12444 12507 
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END .P11 O8-FEB-80 13:4 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0350 
14230. 14292 14406 14413 

BITO8 = 000400 974 107 

BITO9 = 001000 964 106 

BIT! = 000002 1144 4726 

BIT10 = 002000 954 

BIT11 = 004000 944 16266 

BIT12 = 010000 934 

BIT13 = 020000 92H 16349 

BIT14 = 040000 914 16264 

BIT15 = 100000 904 

BIT2 = 000004 1134 925 

BITS = 000010 1124 12830 

BIT4 = 000020 1114 = 147 

BITS = 000040 1104 15181 

BIT6 = 000100 1094 4554 

BIT7 = 000200 1084 

BIT8 = 000400 1074 4615 

BIT9 = 001000 1064 

BPTVEC= 000014 1224 

BUFF1 061166 1319 1446 1454 1462 1470 1478 1486 1494 1500 1508 1516 1524 532 
1540 1548 1556 1565 1914 2040 2048 2054 2062 2064 2070 4 2567 
2575 2581 2589 2597 2640 2670 2679 2698 2702 2790 2796 26 3 
2926 2956 2965 2984 2988 3076 3082 3113 3166 3208 3236 3245 32 
3268 3372 3376 3424 3478 3521 3549 3558 3577 3581 3682 3731 
3785 3828 3856 3868 4017 4027 4135 4176 4204 4221 4227 4364 4372 
4378 4406 4470 168924 

BUFF2 061266 1323 1401 1408 1415 1417 1444 1452 1460 1468 1476 1484 1492 1502 
1510 1518 1526 1534 1542 1550 1558 1567 1918 1996 2003 2012 2023 
2038 2046 2056 2072 2442 2522 2529 2536 2550 2565 2573 2583 2591 
2599 3832 3860 3876 4021 4137 4180 4208 4368 4472 168934 

BUFLEN= 000100 254 1263 1282 1418 1477 1507 1870 1886 2023 2393 2397 2550 2817 
2882 3103 3165 3415 3470 3473 3474 3477 3722 3777 3780 3781 3784 

CBIT = 000001 594 1028 1644 2139 6018 6498 

cc 000516 3444 582* 584* 596 606 802* 804* 816 826 1126* 1128* 1130 1732* 
1734* 1736 2253* 2255* 2257 2719 = =2721* 2723 3005*  3007* 3301*  3303* 
3305 3611* 3613* 3615 3946*  3948« 3950 4293* 4295" 4297 4389* 4391 5000* 
5002* 5004 5108* 5110* 5112 5584* 5586* 5588 5692* 5694* 5696 * 6056 
605 6134* 6136* 6138 6530* 6532* 6534 6610* 6612* 6614 7549% = 7551* 7553 
7658* 7660* 7662 8278* 8280 282 8382* 8384* 8386 9942* * 10118* 
10120* 10122  10860* 10862* 10864 11037" 11039* 11041 11662* 11664* 11 11772") =11774* 
11776) =. 12551" =12553* 12555 12705* 12707 12709 12973* 12975* 12977 131352* 13134* 13136 
13341* 13343" 13345 13502* 13504* 13506 13995* 13997% 13999  14067* 14069* 14071 14514 
14516* 1451 14642* 14644% 14646 14910" 14912" 14914 15068* 15070* 15072 15330* 15332« 
15334. 15492* 15494* 15496 

CC.EXP 000520 3454 1024* 1026* 1028 1030 1130 1640* 1642* 1644 1646 1736 2135* 2137* 
2139 2141 2257 2694* 2696* 2725 2980* 2982* 3009 3260* 3262+ 3305 3573* 
3575* 3615 3870*  3878*  3930* 3950 4277* 4279% 4297 4788* 4796*%  4803*  4824% 
4849x 4936* 5004 5317* = 5328* 5333* 5350* 5369* 5397* 5437% 5456* 5490" 5517 
55 5902* 5914*  5999x 6018+ 6058 6325* 6339% 6388* 64352* 6462* 6490 98* 
6554 7079* = =7255* 387272 = =—7285* = 7375 7406* 7420" 7432% 7466 7487 751 7553 
7847* 8109* 127* 8140* 8282 9334* 9946 10246* 10250* 10864 11128% 11214% 11224* 
11234* 11253" 11267" 11277* 11316* 11326* 11335* 11666 11846* 11911* 11944* 11976* 11985« 
12018* 12036* 12043* 12100 12103* 12208 12239% 12271 12274* 12305 12366 124 12456* 
12492 12519* 12555 a 12977 =. 13269* )§=135273* 13345 13460* 13602* 13684* 13694» 13704* 
13723* 13737* 13747* 13786* 13796* 13805" 13999 14143% 14247* 14284% 14322% 14324% 14341* 
14343* 14396* 14422* 14429% 14431 14518 14843" 14914 15258% 15262" 15334 15449 


ma 


vw 
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END.P11 O8-FEB-80 13:43 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0351 
CHRSET 061766 3212 3274 3282 3284 3381 3384 3392 3480 3525 3587 3595 3597* 3691 
3694 3704* 3787 12913 13096 13280 13469 14850 15034 15269 15458  16895# 
CISGEN 015716 523 4661 46874 
CISSEN 031700 4729 8438 92204 
S6EN 044432 9261 12777 12792# 
CIS7EN 052020 12833 14714 147294 
CIS8EN 053140 14769 = 151454 
CIS9EN 055114 15 15568 158004 
CKSWR = 104406 13 16263 16342 16365 
CLRBUF 055346 1059 1083 1325 1675 1699 1920 2170 2194 2440 2700 3266 3374 3579 
3684 4019 4023 4210 159314 
CLRDSB 055520 4780 5100 5309 5684 5900 5928 6126 6602 7077 7650 7845 7864 8374 
9313 10054 10225 10973 11126 11863 12670 12885 13070 13248 13439 13600 13823 
14141 14624 14822 15008 15237 15428 160434 
CLRREG 055330 560 780 2794 3080 3397 3702 4025 4381 5098 5682 6124 6600 7648 
8372 §=10107 11026 13120 13492 14632 15057 15481 159024 
CMPC = 076044 1764 3939 
CMPCI = 076144 1864 4032 
CMPN = 076052 1934 11655 
CMPNI = 076152 2024 11766 y 
CMPNI1 041376 11815. 11817) 1160194 
C = 076072 21 13988 
I = 076172 2224 14061 
CMPPI1 050216 14111 «14113 141154 
670 16923 169584 
CMPIA 674 16925 169614 
CMP2 700 16928 169654 
CMP2A 8062712 169704 
CMP3 062716 16933 169744 
CMP3SA 062722 16935 169774 
CMP4 062744 169 169874 
A 0627 16940 169924 
CMPS 062774 16943 169984 
CMPSA 16945 170024 
063014 694 170074 
063020 16950 §=1701 
CMP7 063024 16953 170144 
CMP7A 3034 16955 170184 
COUNT 000466 3324 550* 562 593 650 672* 674 770% 782 813 877* 879 965* 
1010 1303* 1306 1582* 1626 1898* 1901 2086* 2422% 2425 2613* 2644 2774* 
2777 2897* 2930 * 3063 3181* 3214 3356* 3359 94x 3527 * 
3801* 4001* 4151* 4348» 35 4755* 4959 5083* 5284* 
43 5667* 5670 5848 5875 6110* 6113 6273* 6300 86* 658 7020* 7051 
7634* 7819* 835 8360 88* 10039* 10042 10200* 10958* 10961 11119* 11738 
11747 = 11837* 12652" 12657 12860* 13055* 13058  13223% 13424* 13427 13593* 14032* 14035 
14132* 14605* 14610 14797* 14993* 14996 15212" 15413* 15416 
CR = 000015 194 16474 
CRLF = 200 204 16445 
CTL 000544 3554 530* 4735* 9267* 12839* 14775* 15190* 16393 
CTLTBL 056570 16396 164074 
CTL4 16407 168384 
CTLS 0606 16408 168414 
CTL6 060714 16409 168444 
CTL7 060731 16410 168474 
CTL8 060746 16411 168504 
CTL9 060763 16412 168534 


ma 
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30362 


030216 
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89804 
85784 


8376 
84854 





ma 


DATAO1 


DATAO2 
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030222 8453 
030226 8457 
030232 8461 
030260 8465 
030272 8469 

306 8473 
030330 8477 

30340 8481 
076073 2144 
076173 2234 
022250 6212 
022251 6215 
022254 6218 
022257 6221 
022265 6224 
022271 6227 
076054 1954 
076154 2044 
026352 7732 
026353 7 
026354 7740 
026357 7745 
026372 7749 
026376 7753 
026402 7757 
026405 7761 
026413 7765 

560 3644 

2100* 
2951 
3815* 
5298* 
7088 
9500 
10473 
11379 
12079 
12342 
13283 
13831 
14831* 
000562 3654 
2628* 
559 
4771* 
7036* 
11143* 
11928 
12251 
12917 
13828 
14426 
000564 
1801 
2630* 
3893 


MACY11 30A(1052) 


Im > arn 
BDO F— 
22 oe 


=» 


MINUINIOO 


ss 4 
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1190 1216 
347 2369 
3195* 3206 
905 3925 
5535 5862* 
7833* 7872 
557 9579 
1161 =11174 
431 11460 
176 12180 
407 12442 
3472 =13615* 
4167 14244 
5017* 15037 
1184 1598* 
2913* 2991 

3830 
5300* 5311 
7532 7835* 
247 = 11250 
963 12033 
299 = 12359 
259% 13284 
154* 14254 
502. 14545 
102 1190 
850 1870 
680 2703 
905 3915 


aad ad <i abebanh 


MOWO—ANnronw 


WOR 
Oo 


a 


MM NUMA 


a te 


Won 


a 


10 .000— Cor 
mw OW 
WIN 


YANN YW 
NA2SNBISVVONUR 


~ 
MMOWWONUIWIOO Nm 


ad ad ad ad ed ed ed ed 

SWS WANN OO 
ane. w NO 
oa a be) on 


MINOW 
xe 


RRVELS 
Za 


nt ee 


Snr is 
NWOWNOW 
4 MNIW 

— CoCo 


MIWN =F WRN OO 
BURN EE 
SLSR eS 


s 
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END.P14 08-FEB-80 13:43 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0354 
7038* 7091 7161 7299 7352 7356 7369 7373 7396 7400 7424 7437 7460 
7485 7507 7534 7837* 8038 8046 8058 8251 9326* 9370 9377 9440 9622 
9644 9664 9682 9700 9722 =10238* 10286 10293 56 10540 105 10582 10600 
10618 10640 11145* 11188 11211 11229 11244 11262 11272 11283 1 11525 = 11549 
11596 =11630 «611647 = 11861* =11892 11952 11968 11999 12027 12221 12223 12318 12320 
12379 §=—- 12381) -12442) 12444 12505) = 12507 =: 112540) )=s « 12898* 12923 12946 13083* 13106  13261* 
13290 13314 13452" 13479 13619* 13658 13681 13699 13714 13732 13742 13753 13903 
13980 §=14156* 14228 14292 14314 14368 14406 14413 14507 14835" 14 14883 15021* 
15044 15250* 15279 15303 15441* 15468 

DATAO3 000566 3674 985* 1006 1186 1239 1279 1281 1602* 1622 1694 1718 1792 1833 
1845 1849 1873 1885 2106* 2127 2189 2213 2311 2368 2396 2400 9328* 
9373 §=910240* 10289 11147" 11181 11221 11247 11527 11551 11574 11598 11617 12900* 
12924 13085* 13107 13263* 13291 13454* 13480 13621* 13651 13691 13717 13900 13908 
13953. 14837* 14861 15023* 15045 15252* 15280 15443* 15469 

DATAO4 000570 3684 987* 1008 1244 1604* 1624 1826 2108* 2129 2376 9330* 9399 9406 
9447 9765 9787 9789 9812 9815 9837 9840 9862 9884 10242* 10315 10322 
10363 10683 10705 10707 10730 10733 10755 10758 10780 10802 12902* 12930 12951 
13087* 13113 13265* 13297 13319 13456* 13486 14839* 14867 14888 15025* 15051 15254* 
15286 15308 15445* 15475 

DATAOS 000572 3694 989* 1056 1 1606* 1672 2110* 2167 2175 9332* 9402 10244* 
10248* 10318 2904* 12931 13089* 13114 13267* 13271* 13298 13458* 13462* 13487  14841* 
14868 15027* 15052 15256* 15260* 15287 15447* 15451* 15476 

DATAO6 000574 370# 991* 1080 1088 1266 1274 1608* 1696 1704 2112* 2191 2199 

DATTYP 000462 3304 5322* 5323* 5337 5356 5451 5464 5466 5470 5498 5500 5504 5984* 
5985* 5987 365 6366* 6372 6374 6394 6396 6400 6443 6451 6453 7313* 
7336* 7340 7393 7412 7457 7481 7503 7535 7894 7895* 7900 7927 
7944 7970 7994 8014 8071 8099 9746* 9748* 9750 9774 10664* 10666* 10668 
10692 11132* 311359 =11362* 11375 11399 11428 11456 11476 11641 11725* 11728 11848* 
12126* 12132* 12136 12171 12236 12263 12339 12400 12462 12531 12536 12575 13606* 

DELAY 000470 3334 4501* 4507 4583* 4584* 

DESCRO 000614 3794 =9500* 9520" 9521* 9538* 9539 9557 9558* 9579* 9580* 9919 10416* 10436* 
10437* 10454* 10455* 10473* 10474* 10495* 10496* 10837 

DESCR1 000616 51* 2 10367* 10839 

DESCR2 000620 3814 9644 9664* 9665* 9682* 9683* 9700* 9701* 9722* 9723* 9923 10562* 10582« 
10583* 10600* 10601* 10618* 10619* 10640* 10641* 10841 

DESCR3 000622 3824 8 9453* 9925 10369* 10843 

DESCR4 000624 3834 9787" 9812* 9813*  9837* 9838* 9862*  9863*  9884*  9885* 9927 10705* 10730« 
10731* 10755* 10756* 10780* 10781* 10802* 10803* 10845 

DESCRS 000626 3844 9455" 9929 10371* 10847 

DIAGMC= 000000 1 

DISPLA 000430 3124 451* 16279* 16345* 

DISPRE 00017 2464 451 

DI = 076075 2164 15323 

DIVPI = 076175 2254 

0365 108334 10835 
DOIT1 033776 99154 
D 2370 4832 4843 4870 5448 5904 5923 6327 6348 6408 647 6476 7870 
6 7985* 8020*  8025* 8249 8621 8674 8943 8954 8993 9350 9430 32 

9451 9475* 9477 9514* 9550* 9590* 9595* 10066 19906 10346 10348 10367 10391* 
10393 10430* 10466* 10506* 10511* 10985 11157 11293 11367* 11369 11378 11393 11405 
114 11459 §=11479 11493) 11644 Bt 12148* 12150 12174* 12179 12244 12278 12348* 
12353* 1 12481* 12486* 12533 1267 12785 12918 §=12944 §=13101 3=—1328 13312 3474 
13632 913763 13826) = 13977 0S 14165 = 14500 = 14626* 9 14628* 14630* 14724 14855 14881 15039 
15274 15301 15465 15793 16049 169C0# 17356 17367 

DSBUF2 062432 9379 9437 9439 9453 9619* 9621 9658* 9694* 9733* 9738* 10082 10295 10353 
10355 10369 10530 10537* 10539 10576* 10612* 10651* 10656* 11001 11184 11295 11513« 


mc 
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3 

1515) 11526) 11539-11548 )=— 11572) 11595) 11615) = 11629) 11649) 12925 112949» 13108 3=_: 13292 

Zaht 1348) 13626 13765 13898 13982 14862 14886 15046 15281 15306 15470 15795 
4800 4812 4829 4834 4840 4851* 4855 4858 4872 4877 4880 4885* 
53 23/3 est 2398 5412 5416 5431 5434 5908* 5909* 5911 


35 6369 
7110 7140 7143 7164 7266 7282 7427 7872+ 7873* 7880 7903 
7973 8055*  8056* 8061 8121 8137 8151 8154 8177 8589*  8643* 


DSLEN1 000512 


uw 
»°] 
Nm 
w 
“i 
oO 
NSS 
w 
‘Oo 
wW 
N 
» 
uw 


DSLEN2 000514 343" 4790 4791* 4793 4809 4815 4829 4840 4845 4851 4855 4862 5319« 
5320* 5325 5377 5384 5401 5412 5415 5431 5435 7091" 7140 7148 7250 
268 7415 8058" 8059* 8106 8123 8137 8151 8159 8170 
DSTADR= 000000 161684 16169 
DSTMPO 000552 ane 4G296t 735074639430" 9475 9541 10346" 10391 10457 11159* 11367 12110 
te 
DSTMP1 000553 renee Bg0gt 7358 7439-9435" 9480 9523 10351* 10396 1043911177" 11372 12116 
te 
DSTMP2 000554 3604 9437 9619 9685 10353* 10537 10603 11186" 11513 13656« 
DSTMPS 000555 3614 9442e 9624 «= 9667S: 10358* 10542 10585 11201" 11518 13671« 
DSTMP4 000556 3624 9444" 9762 9843 10360* 10680 10761 
DSTMP5 000557 9449* 9767 9818 10365* 10685 1 
DS.DST 062474 4953 5059 5066 5161 5179 5266 5537 5643 5650 5745 5765 5831 
9 7322 7325 7537 7606 7693 (7700 (7707 (7714 7802 8253 8335 8342 
8417 84246 8431 8542 955 9911 1 7 10163 10170 10371 10829 10919 
0926 11082 11089 12470 12538 12584 12596 12741 12762 12787 12954 13031 
13177 13193 13322-13400 07 13547 1 14505 14555 568 14678 14699 14726 
14891 14969 1497615115 15129 1531115389 9% 15537 15553 15797 169084 1 
DS.EXP 062536 4798* 4819 4836 4847 4866 5061 5343" 5348* 53628 5367s 5382 5410 5418 
5478 5507 5645 160 7236 7296 7298 7350" 7355 7367" 7372 7399 7% 
7473* 7484 7506  7514* 7519* 7604 7611 8043 174 8337 9408 9444 
9762* 9764 9804* 9854" 9895s * 10002 10098 10165 10324 10360 10362 10680* 
0682 10722* 10772* 10813* 10818* 10921 11017 11084 11921 11958 12045 12063 12 
12110 12112 12161* 12163 12196* 12201 12254 12298 123 12394* 12424 12465 12496* 
12501* 12512* 12598 12631 12636 12932 13033 13115 13179 13186 13299 
13549 13556 14258 14305 14330 14349 14445 14566 14869 14971 15052 15115 15122 
5288 15391 15477 15539 15546 169124 
EMTVEC= 0000 1254 
E 034246 100354 
END2 034242 100304 
END21 037036 10382 109544 
END22 037032 10526 10949 
END23 037026 0671 10944# 
ENDS) 034236 9753 100254 
RR 000550 3574 = 586% = B06* = 4490" = 647% «= 4741" «= 9273" «12845* 14781* 15196* 16357 16383 
ERRFLG 000454 327¢@ = 532e = 1188* 1198 1221 1255 1261" 1295 13398 1431 1790" 1806 1839 
1855 = 1890S 1934" 2010" +2025 «= 2319» 2329S 2352, 2387 2414 = 2539e §= 2552 65 
4670 4678*  4737* 5063* 5068 5189* 5202 5647 5652 5754" 5767  7608* 7613 
8333" 8340 9269% 10004* 10009 10167* 10172 10923" 10928 11086* 11091 12592* 12603 
12609* 12618 12757* 12760 12770* 12841* 13035" 13040 13190" 13195 13404" 13409 13560« 
13565 14570" 14575 14581" 14590 14694" 14697 14705" 14777" 14973" 14978 15126* 15131 
15192" 15393« 15398 15550« 15555 16278* 16343* 
ERRHDR 061000 16381 168614 
ERROR 056274 599 = «609i 18s«O8S 632 639 «= «646—(aiesiSK“ s(<ié«‘i a H“SC“<it«iaHS*~*«i«OT 708 = 715 
722 729s -736——“‘«ézR'Dsi iti B2siéBCCCéGSS 852 859i—iBHH—“‘éz SCCM 
911 918 925 932 939 946——id202383 404721154161 s«*1168—S—s«12075 


ma 
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1204 1227 1247 1289 1353 $ 1369 1376 1383 390 1397 1404 1411 
1425 1739 1746 1753 1760 176 1774 1781 1812 1829 1861 1881 8 
1957 1964 1971 1978 1985 1992 1 2019 22 2267 2274 2281 
2288 2295 2302 2335 2358 2 2408 2474 2483 2490 2497 25 2511 
2518 2525 2532 2546 2726 2733 2740 2747 2754 2761 2768 2813 2822 
2829 2836 2843 2850 2857 3012 3019 3026 303 3040 3047 4 

3109 3116 3123 3130 3137 3144 3308 3315 3322 3329 3336 3343 3350 
3411 3420 27 34 3441 3448 3455 3618 3625 3632 39 53 
3660 3718 3727 3734 3741 3748 3755 3762 3953 3 3967 3974 3981 
3988 3995 4047 4054 4061 8 4075 4082 4089 43 4307 = 4314 4321 
4328 4335 4342 4395 4402 4409 4416 4423 4430 4437 = 4444 4575 4657 
5007 5014 5021 5028 5035 5042 5049 5074 5115 5122 5 5143 
5150 HEA 5175 5185 5591 5598 5605 5612 5619 5626 5633 

60 

















8 
5 7 7696 
06 401 
8427 34 9949 9956 63 9970 77 84 9991 10015 10125 1 
10178 10867 10874 10881 10888 10895 2 109 11061 11073 11097 
11669 11676 11683 116 11697 = 117 11711 11779-11791: 11803): 12558 §=©12570 = 12580 
12587 = 12621 12712 = 12724) = 12736 3S 12746 )=— 12753 12980 12 1300 1 
13015 13022) «6135046 §=613139)=—: 13156) 131 13201 3348 13355 13369 13376 13383 
13390 §=613415 = 13509-13526) = 13538 )3=— 13571 9 14002): 14014 «= 14026 )3=: 14074 = 14086 =: 11409. 14521 
14531 = 14541 14551 14558 =: 14593-14649 = 14661 4673 = 14683 14707 §=14917 3914924 
14931 14938 14945 1495 14959 = 14984 =15075. 15092. 15104 «= «15137 Ss 15337-15344 = 15351 
15358 15365 15372 15379 15404 15499 15516 15528 15561 163414 
ERRTBL 056562 16386 164034 
ERRTMP 000472 16383* 16384* 16385* 16386* 16387 16393* 16394* 16395* 16396* 16397 
S 84 35* 436* 
168674 
1 
1687 





158894 


nun 
— 
~~ — 
Las) 
Seley 
as) 
N 
— 
Nm 





LOCCI = 076140 
LOOP2 015402 
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LTCVEC= 000100 1294 447* 
L200 = 076020 1494 569 
L201 = 076021 1504 
L2ed2 = 076022 1514 
L2D3 = 076023 1528 
L204 = 076024 1534 578 
L205 = 076025 1544 
L206 = 076026 1554 
L2eD7 = 076027 1564 686 
L300 = 076060 1584 
L301 = 076061 1594 
L3D2 = 076062 1604 
L303 = 076063 1614 789 
L304 = 076064 1624 
L305 = 076065 1634 798 
L306 = 076066 1644 
L3D7 = 076067 1654 887 
MATC = 076045 177# 4286 
MATCI = 076145 1874 4383 
MFPT = 1464 
MOVC = 076030 1694 1119 
MOVCI = 076130 179% =1341 
MOVRC = 076031 1704 1725 
MOVRCI= 076131 1804 1936 
MOVTC = 07 1714 2246 4564 
MOVTCI= 076132 1814 2460 
MSGADR 000546 3564 477* 15821* 15827* 15877* 15889* 16319* 16352* 16381* 16387* 16389* 16397* 16399* 
6430 16448* 16544* 16585* 16587* 16591* 16605* 16617* 16637* 16687* 16691* 16696* 

MULP = 076074 2154 14903 
MULPI = 076174 2244 15060 
MUL 1 054504 15575 = 156444 
MULIA 054526 15577 =156524 
MULIB 054552 15579 9156614 
MULIC 054614 15581 156754 
MUL2 054656 15585 156894 
MUL2A 054 15587 156944 
MUL2B 054676 15589 156994 
MUL2C 054714 15591 157064 

3 054732 15595 157134 
MUL3A 054742 15597 = 157184 

3B 054746 15599 15722# 
MUL3C 054756 15601 157274 

054766 15605 15625 157324 

MULSA 054776 15607 15627 157374 
MULSB 055002 15609 15629 157414 
MULSC 055006 15611 15631 157454 
MULS 055012 15615 157494 
MULSA 055016 15617 = 157534 

5B 055026 15619 157584 
MULSC 055032 15621 157624 

7 055036 15635 157684 
MUL7TA 055046 15637 39157724 
MUL7B 055054 15639 157764 

7C 055066 15641 157814 
NBIT = 000010 564 4936 5350 5369 5456 5490 5517 5999 6388 6432 6462 6490 7255 

7375 7406 7420 7432 7466 7487 7511 8109 11224 §=11254 §=11255 11267 11277 


mon 
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119117 12103-12239) 12274 = 13694 13786 §=613796 
14343 14431 


510 

055254 7 10448 10466 
10594 10612 11 

055646 oi ae 13300 13482 §=13489 14856 
14 15040 7 615 161674 

056266 

022304 

026426 

000000 


000100 
000140 
000200 
000240 
000300 
000340 4518 4590 
177776 

177776 


582 35 2253 
3093 12 3946 
4494 80* 4739 
6134 6530 6610 7658 8278 8382 
14772 = 12551 13341 
14910 15068 


802 1 21 
3260 3 37 
4556* 4 46 


16289* 16318* 


2145* 2150* 2151* 
3016 
3908* 


6065 
13240* 


6494 
9071* 9135* 
13005 13373 14942 
1050* 1165 1666* 1771 2161* 2292 2688* 2974% 





mon 


CJKDGA 
END.P1{ 


RS.EXP 000534 
SAVPSW 000612 
SAVREG 055562 
VRO 000576 
SAVR1 000600 
SAVR2 000602 
SAVRS 000604 
SAVR& 000606 
SAVRS 000610 
SCANC = 076042 
SCANCI= 076142 
SETBUF 055410 
SGNDGT 023470 
SIGNO 000446 
SIGNI 000450 
SIGN2 000452 
C = 076041 
SKPCI = 076141 
SPACE 06410, 
SPACEY 070102 
SPACE1 060660 
SPANC = 076043 
SPANCI= 076143 
SRCADR= 000002 
STACK = 000776 
START 001200 
STKLMT= 177774 
SUBN = 076051 
SUBNI = 076151 
SUBP_ = 076071 
SUBPI = 076171 
SWR 00042 
SWREG 000176 
SwO = 000001 
SwOO = 000001 
SwO1 = 000002 
SWO2 = 000004 
SwOS = 000010 
SW04 = 000020 
SWwOS = 000040 


KEF11=8 CIS DIAGNOSTIC 
08-FEB-80 13:43 


MACY11 30A(1052) 


3650 
7067* 


168374 
3604 


K 12 
08:04 PAGE 345 


CROSS REFERENCE TABLE == USER SYMBOLS 


3901* 
7588 
15319* 

117 


9421* 


16329 


450* 
16362 
450 


14-MAR-80 
3985 4244% 4332 
8267* 8317 9931* 
15369 
1668* 1778 2163* 
3992 4246* 4339 
8 69* 83524 9933* 
15376 
4649* 4680 
160794 
15970* 15987 16007* 
15972* 15989 16009* 
1683 1707 1916 
4370 =15 
5359 5453 5485 
7417 7429 7442 
9197 9346*  9361* 
0479 10503 11130* 
12269 §=12281 12301 
12644* 12647 13604* 
14597* 14600 
9646 9669 9687 
9792 9822 9847 
456* 514 4720 
16574 16615* 
16574 16589 


4983* 
9981 


9252 


5039 
10849* 

2690* 

5046 
10851 


16045* 
16047* 


12824 


5567* 
10899 


2765 
5569* 
10906 


16062 
16064 


10291* 
10320* 


14760 


5623 
12962* 


16081* 
16083* 


10306* 
10337* 


15175 


5891* 6093 
13012 13330 
3051 74788 


5893* 6100 
13019 13332* 


16108 

16110 

2986 3078 
6460* 6487 
7997 8017 
9587 10262* 
11323 11841* 
2409 12427 
13793 14136* 
10564 10587 
10710 10740 
16264 16266 


SEQ 0359 
6316* 
13380 


16297 
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11035 173554 


1833* 
* 


8605 94 
9433* 9435 9439* 9440* 9442 446% 9447% 9449 9459* 9461* 9463 9487 10328" 
10349* 10351 10355* 10356* 10358 10362 10363* 10365 10375* 10377* 10379 10403 11892 





CJKDGA KEF11-8 CIS DIAGNOSTIC 
ND.P1{  08-FEB-80 1 


060466 
055300 
060434 
hes, 

177560 


000060 
Bisret 


MACY11 30A(1052) 
CROSS REFERENCE T 


M 12 
by 08:04 PAGE 347 
ABLE -- USER SYMBOLS 


16655 
16621* 


12031 | 
1 


5437 


10539* 


9767* 9795* 
10805 


15490 15541 157924 


16471 


168944 


2098 2420 
3664* 3803* 


5860 
10037* 
13225* 
15244 
16388 
16688 16692 


7285 8140 12018 12036 12456 


12519 


Igsen I 
14448 


8101 
11545 


10396* 
10542* 
9829 


SEQ 0361 
12425* 


10567* 
9865 


13595* 
16400 





moan 


CJKDGA, KEF11-B CIS DIA 
08-F EB-80 


END.P11 


000651 
055114 


13 


— 


4064 
158124 
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16467 


16399 


158364 
6367 
158394 


16355 
16433 


16476* 


16448 


16431 
16436 


6 4824 5328 


479 
12043 12100 12208 
14429 


16582 


164814 


16617 


16726 = =16745 
16728 


5397 
12271 


5914 
12305 


6339 
12366 


7272 
12429 


8127 
12492 


1 
1 


1214 
3684 





ate bh OM ao 
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SEOPCT 055230 
ScRFLG= 000400 


w 


OOONAW 
SES85ESE 


SSSoLerqawer 
ppt eer 
Cr Ie ee 
ooow 
VERE 
Unesaoes 

S 

NO 


3 
WINN] 9ooO 


ows 
Se 
Bz 


& 


on 
= 
= 
AND AK 
N--o 


— 

. 3 
ae RS ot a 
a 


aa 
RYE 
oe 


NOMI) 2 es 


MEWUIRIN SR 


SEOs SNS 
SaweBSEss 


—UINouW 
DIRS 2 2 oo a a es 


™ 
nN 


3 
nl 
oS 
N 


AQAUWWWRN-— 


QUSWWRNN 
MOWBWAWOO—~N 
AAWLSWWwI 

— 

— 

2 


— 
AARMNWW 
8 


tt dt 
> N 
_ 


é 


“IOs 
ye 


_' 
ene 
r 
g 
SNgSe 


RENARF 
= 

<* 

SF 

ecg 

SERBISRASSA RRS ESeSS 


10.000 
SVL 
VES 
owno 
i$ 
8 
eet 

2 


UVTI SS ORM INSSAAARWWV==SSS 
Se 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 


att 
-_— 

=I IO 
Exess 
aes 
REE 
MMMM 
i 


29654 
29824 
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14-MAR-80 


C 13 
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30194 
30804 
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52844 
5 


RES See 
res 


RN 
B28 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


7896 9064 7907 
7952e 7957# 
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END .P1{ 08-FEB-80 13:43 CROSS REFERENCE TABLE -- USER SYMBOLS 
79764 7977 79814 7982 79854 7986 
80254 8026 80384 80394 8040 80434 80444 
57 80584 8059" 8 80644 80754 
8110 81274 8128 81404 8141 81544 
81764 81774 81784 8179 8 8191 
8216 82174 82184 8219 82204 82254 
82 82474 8248 82494 8250 82514 
8259" 82614 8262 82634 82654 
82 8 8281 82854 82924 
83 83374 8338 834 554 8356 83574 
8385 8 84014 84134 204 84274 
8 86054 8606 8621% 8622 86234 
86314 8632 86334 86354 
86434 86614 8662 3A 86684 
86914 8692 87014 8702 87034 87 
87244 8725 87264 8727 87364 87384 
87594 8760 87614 8762 87714 8772 
8 8795 87’ 8 
88254 8826 88 8830 88314 8832 
88544 55 8861 88644 5 8734 
8892 88934 94 890 8904 8910 
89294 89. 89344 8935 89 8937 89434 
89574 8958 89594 89874 8989# 8 89914 
0 90114 12 90214 22 90274 8 
90494 0 90534 9054 90554 9056 90654 
78 90874 88 90934 94 90974 
9119% 9120 91294 9130 91354 9136 91394 
91 91694 9170 91754 9176 91794 
92024 9203 92074 9208 2134 9252 92534 
272 92734 9274 92 9287 92884 28 
93204 9321 93224 9323 93244 
9331 93324 9333 93344 9335 934 
93614 9362 93734 9374 93754 9376 93774 
03 9405 940 94 94 
94354 36 94374 9% 94394  9440# 
94474 48 94494 0 94514 9452 
7 94804 9481 95 9501 95054 
95214 522 95234 524 95284 95324 
9547 95504 9551 9557# 95584 9559 
9572 9 95804 9581 95824 958354 95 
96194 9620 96214 96224 9623 9625 
96584 9659 4 96654 96674 
54 96904 9691 9695 
97094 9710 97144 9715 97224 8697234 9724 
9734 97384 9739 97624 9763 7644 97654 
97 9 98044 9805 98124 98134 
9826 98294 9830 98374 98384 9839 98434 
9855 98624 9 9864 98654 98664 9867 
98874 9889 98 9891 98954 
9914 194 9920 99214 9922 99234 9924 
99314 9932 99334 9934 994 9943 99444 
14 1 10001. 10002# set spr 


54 10094 
10142# 10154# 1016 
10201 102024 10263 102094 


; 


| 


SEQ 0367 


! 
; 


F 1s 
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KEF 11-8 CIS DIAGNOSTIC MACY11 30A(1052) 
08-FEB-80 13:43 


{ 


CJKDGA 
END .P1 





Once wry 


Oe cel ook geek elo eel col po ied 





b 3 REPRE SCOSS: 
wn KMNDADWA 
z xg 
om 
= 


Sit OM we 

OSCR G SE SRIAAR SD SR OBS ES OSS EN 
beh eth eh eh ee ee cee eh eel ce eel el ee ee el el el ed ree cucu auqucuc 
et tt ek eek eek et eet eee awe eK we ewer 


tol 
3 
SsEnsnanneds SAGES S 01 $Suwy~ FS 5 me Sn oB 3850 


oo RRR ae cy 
SHV yso AS Sr Se GAR <P PHVsTigoss FoF Sn cK Ee 2 OINN 
~w - NomMn oe MOCO — WatetaY] SNS 
SSSoowe VSMARTSS MM st ATA ae Araya Sa5 

Cm Or cee 
pth — hh — pp — hp — RS De ——— 


& ~ 
ef OE: Ere ee 
SSSSSsesssss Sooo _ Sia, 


Sch eh ee seh shh el el el el ell el el el el el el el el ll CURIOS 
ee OE OO RO ORR OOP RP POOP RP eK RK ee eR KK ee eRe Reem Ker eererercrereer.-:- 


= = zz 

-- ~ 
VAVII]I Ss TARAS AUB ESBLSTGRTSSRRGITSEL SESS oN en EN ESS 3sér2 ™ 
St et et eh seat ee ee ce el ne eel ll el el cel el lel el eel el ee el el el el el eel eel ell el el el el el ll el el ll el ed ed ee el el el 
2 = bh 3 
MoRRaE SaR Oe raat aa S52 min aN JSBN Mw 5 
total a*l ale! LDF FTAA Ssss8 SRLS SOME BANSAK SS SORLBDBKO pa + ee a 
Ooroooe ooo SSSS33833 SS NINO 
SO FF FF CC CC CC CO Or rere 
& 
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143864 14387 143964 14397 144164 144174 14418 14422 14423 144298 14430 144314 14432 
144364 14437H 14438 144414 14442 144454 144464 14447 144484 14449 144504 14451 144528 
144534 14454 1446464 14465 144664 14467 144714 14472 14475 14476 14477# 14478 14479# 
14480 144974 144984 14499 145004 14501 145024 145034 14504 14505# 14506 14507# 14508 
145094 14510 145144 14515. 14516 14517 145214 145314 145414 14545H 145464 14547 145514 
145584 145644 14565 145664 14567 145684 14569 14570# 14571 145814 14582 145854 14586 
145934 14597# 14598 146034 14604 146054 14606 14624H 146264 14627 146284 14629 14630# 
14631 146324 146424 14643 146444 14645 14649 146614 146734 146784 14679 146834 14690# 
146944 14695 147054 14706 147074 147604 147614 14762 14775 14776 14777# 14778 147798 
14780 147814 14782 147954 14796 14797 14798 14799 14800 148064 14807 14 14810 
14813 148224 14829 14830 148314 14832 148334 14834 148354 14836 148374 14838 148394 
14840 148414 14842 148434 14844 148504 14851 14852 148594 148664 148784 148 14 
148814 14882 148834 148844 14885 148864 14887 148884 148 14890 148914 14892 14 
14900 149014 14902 149104 14911 149124 14913 14917 14924# 149314 149384 149454 149524 
14959# 149694 14970 149714 14972 1497 14974 149844 149914 14992 149934 14994 15 
15015# 15016 150174 15018 150194 15020 150214 15022 150234 15024 15025# 15026 15027# 
15028 150344 15035 150364 150434 150504 150574 150684 15069 15070 15071 15075# 15092# 
151044 15113 15114 151154 15116 151174 15118 15119 15122 15123 15124# 15125 15126# 
15127) 15137# 15175 15176 15177 151904 15191 15192 15193 151944 15195 15196# 15197 
152104 15211. 152124 15213 152144 15215 15221# 15222 15224# 15225 15228 152374 15244# 
15245 152464 15247 152484 15249 15250# 15251 15252 15253 15254 15255 15256# 15257 
152584 15259 15260 15261 152624 15263 15269M 15270 152714 152784 15285# 15 15299" 
15300 153014 15302 153034 15304# 15305 153064 15307 153084 15 15310 9153114 15312 
15319 15320 153214 15322 15330# 15331 153324 15333 153374 15344H 153514 153584 15365# 
153724 153794 153894 15390 153914 15392 15393 15394 15404H 154114 15412 15413# 15414 
154284 15435H 15436 154374 15438 15439H 15440 15441 15442 154434 15444 15445# 15446 
154474 15448 15449H 15450 154514 15452 154584 15459 15460 154674 154744 154814 154924 
15493 154944 15495 15499H 15516 155284 155374 15538 155394 15540 155414 15542# 15543 
155464 15547 155484 15549 155504 15551 155614 159044 15905 15906 15907 15 15909 
159104 15911 15912 15913 15914# 15915 159334 15934 15935 15936 15937# 15938 15939" 
940 15943 15944 159454 15946 15950H 15951 15952 15953 15970H 15971 15972# 15973 
159744 15975 159764 15977 159804 15981 159824 15983 15987# 15988 159894 15990 16007# 
1 1 16010 160114 16012 160134 16014 16017# 16018 160194 16020 16024# 16025 
160264 16027 160454 16046 16047# 16048 160494 16050 160514 16052 160554 16056 16057# 
16058 160624 16063 1 # 16065 160814 16082 160834 16084 160854 16086 16087# 16088 
160894 16090 160914 16092 161084 16109 16110 16111 161124 16113 161144 16115 161164 
16117 9161184 16119 161694 16170 161714 16172 161734 161744 16175 161844 16185  16189# 
16190 162044 16205 16212 16213 162144 16215 162224 16223 16226# 16227 162284 16229 
162304 16231 16235# 236 §=616239% 16240 162414 16242 
000416 3054 
SERRPC 000420 3074 16347* 16348* 16391 
SERRTY 056430 16351 16380# 
SERTTL 000414 4 16346* 
000650 4044 
SETEND 000446 289 3224 
SFATAL 000632 397H# 16749« 
SFFLG 060354 16717* 16720* 16743 16752* 167604 
SFILLC 000434 3154 16453 
SFILLS 000433 3144 
SFSAND= 000310 A 519 522 564 595 598 608 617 624 631 638 645 652 
655 665 700 707 714 721 728 735 784 815 818 828 837 
844 851 858 865 872 903 910 917 924 931 938 945 1012 
1030 1058 1082 1090 1104 1132 1139 1146 1153 1160 1167 1174 
1192 1198 1203 1221 1226 1246 1265 1268 1288 1308 1361 1368 1375 
1382 1389 13 1403 1410 1424 1628 1646 1674 1682 1698 1706 1738 
1745 1752 1759 1766 1773 1780 1796 1806 1811 1828 1855 1860 1872 
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4401 4408 4415 4422 4429 44 4443 4488 4490 4492 4494 4 4500 
4501 4503 4507 = 4514 4516 4518 4529 4531 4533 4535 4537 = 4539, 4541 
4546 4550 4552 4554 4556 4574 4582 4583 4 4592 4 
4611 4613 4617 = 4618 4623 4643 4645 4647 4649 4651 4653 4659 4672 
4678 4680 4720 = 4725 4728 = 4735 4737 4739, 4741 4753 4755 757 
4767 = 4769 4771 4773 4782 4784 4788 790 4795 4 4798 4802 4803 
4811 4814 4815 4819 4822 4824 4831 4832 48 8 4842 4843 4845 
4847 4849 4851 4857 4858 4862 48 868 4870 872 48 4883 
4885 4889 48 4895 4899 4902 4 4911 4917 = 4918 4926 4927 4933 
49 4951 4953 4955 4957 = 4961 4962 4964 969 = 4971 4975 4977 9 
4981 4983 4985 5006 5013 5020 5027 0 5 048 5059 

3 5070 5073 5081 5083 5288 5108 110 5114 5121 5128 5135 
5142 5149 5156 5161 5165 5174 5184 5189 5195 5282 52 2 
5298 5300 5302 5311 5313 5317 5319 5322 5327 5328 5332 5333 5339 
5342 3 5348 5350 5358 361 5362 5367 9 5381 
3 5392 5397 5405 5406 4 5410 5414 415 5416 5418 23 5424 
5433 54 5435 5437 5443 5446 5455 5456 5458 4 5469 5472 54 
5478 5482 5487 5488 490 4 5503 5506 5507 5514 515 517 5522 
5535 5537 5539 5541 5545 5546 5548 5553 5555 59 5561 5563 5565 
5567 5569 5584 5 5590 5597 5604 5611 5618 5625 5632 3 5645 
5654 5657 667 5672 5692 56 5698 5705 5712 5719 5726 
5733 5740 5745 5749 5754 7 5846 5848 5850 5 5 871 
5873 5877 5878 0 5885 7 5891 5893 5902 5 5906 5913 
5914 5916 5918 5923 5925 5932 5933 5935 5937 5944 5945 5955 5957 
5959 2 5 9 5979 59 5989 5 5998 1 
6008 6017 6018 6033 6035 6037 6039 6054 6056 6060 74 1 
5 6102 6108 6110 6115 6134 61 6140 6147 6154 6161 6168 
6175 6182 6189 6 6271 6273 6275 6285 287 6289 6302 
6303 6305 0 6312 6316 6318 6325 6327 = 63 3 6333 6338 6339 
6341 6343 6348 50 6352 6356 6358 6365 6371 6377 = 6378 6 
6388 6399 = 6402 6403 6410 6414 6416 6422 6427 =: 6431 
6432 6438 6445 6446 6456 6459 6460 62 6471 4 
6497 98 6509 = 6511 6513 6515 6530 6532 6536 6543 6550 06557 
6 6571 6578 6 6586 6591 6610 6612 6 6628 
7018 7020 7022 7032 7034 036 7038 7045 7047 7049 7053 7054 70 
7063 7067 7069 70 7088 7091 7099 7103 7105 7113 7114 7121 
7122 7127 7142 7143 7148 7160 7162 7164 7 7177 7181 7183 7185 
7200 7202 72 72 7208 7212 7213 7215 7219 7221 7223 72 
7239 7254 7255 7271 7272 7284 7285 72 7298 7300 7302 7322 f3e? 
7328 73 7342 7350 354 7355 7358 73 367 7371 7372 73 7378 
7383 7395 7398 73 7402 74 7414 7419 7420 7426 7431 7432 7436 
7439 7444 7445 7449 7459 7462 7463 74 7469 7473 7483 74 
74 495 7505 7509 7513 7514 7519 75 7532 7 7537 7539 
7549 7551 7555 7562 7569 7576 7583 75 7597 7 7615 
7618 7632 76 7639 7658 7 7676 7695 7702 6 
7817 7819 7821 7831 7833 7835 7837 7847 7855 7870 7872 
7875 7878 7883 8 7902 7905 7910 7916 29 2 33 
3 9 7950 7952 7956 7957 7961 72 7975 7976 7980 7981 
7985 8 8005 8016 8019 8020 8025 8038 8043 5 
8 8 8074 8075 8080 8088 8089 8103 8 8109 8126 8127 
8139 8140 8153 8154 8159 8170 8174 8176 8178 8189 8190 8 
8211 13 8215 8217 8220 8224 8225 8227 = 8231 8233 8247 8249 = 8251 
8253 8255 8257 8259 8261 8263 8265 8267 8269 8278 82 284 8291 
8298 8305 8312 8319 8326 8333 8335 8337 834 8347 8355 8357 362 
8382 8384 8388 84 8412 9 8426 8433 8587 8589 8611 
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15980 §=15981 15982 15983 15987 15988 15989 15990 16007 16008 16009 16010 16011 
16012 16013 16014 16017 16018 16019 16020 16024 16025 16026 16027 16045 16046 
16047 16048 16049 16050 16051 16052 16055 16056 16057 16058 16062 16063 1 
16065 16081 16082 16083 16084 16085 16086 16087 16088 16089 16090 16091 1 
16108 16109 16110 16111 16112 16113 16114 16115 16116 16117 16118 16119 16169 
16170 §=16171 «916172 = 16173 Ss «16174 Ss 16175): 16181 += 16184 +=: 16185 = 16189 = 16190 +=16201_ = 162 
16205 16209 16212 16213 16214 16215 16218 16219 16222 16223 16226 16227 16228 
16229. 16230 16231 16235 16236 16239 16240 16241 16242 
SFSIF = 000110 14 517 520 525 527 562 571 580 593 596 601 603 606 
611 613 615 620 622 627 62 634 636 641 643 648 650 
653 658 660 663 668 670 698 703 705 710 712 717 719. 
724 726 731 733 738 782 79 800 813 816 821 823 826 
831 833 835 840 842 847 849 854 856 861 863 868 870 
875 901 908 913 915 920 922 927 929 934 936 941 
943 948 1010 1015 1020 1028 103 1036 1042 1056 1061 1064 1069 
1074 1076 1080 1085 1088 1093 1098 1100 1102 1107 1112 1130 1135 
1137 1142 1144 1149 1151 1156 1158 1163 1165 1170 1172 1177 1190 
1196 1201 1206 1213 1219 1224 1229 1244 1249 1259 1263 1266 1271 
1276 1286 1291 1299 1306 1311 1349 1351 1355 1357 1359 1364 1366 
1371 1373 1378 1380 1385 1387 1392 1394 1399 1401 1406 1408 1413 
1422 1427 1626 1631 1636 1644 1646 1652 1658 1672 1677 1680 1685 
1690 1692 1696 1701 1704 1709 1714 1716 1736 1741 1743 1748 1750 
1755 1757 1762 1764 = 1769 1771 1776 1778 1783 1794 1804 1809 1814 
1821 1826 1831 1853 1858 1863 1868 1870 1878 1883 1894 1901 1906 
1944 1946 1950 1952 1954 1959 1961 1966 1968 1973 1975 1980 1982 
1987 1989 1994 1996 2001 2003 008 2016 2021 2139 2141 2147 2153 
2167 2172 2175 2180 2185 2187 2191 2196 2199 2204 2209 2211 2257 
2262 2 269 2271 276 2278 2283 2285 2290 2292 2297 2299 2304 
2321 2327 2332 2337 2344 350 2355 361 2376 2381 2391 2393 2405 


2499 2501 2506 2508 513 5 2520 2522 2527 2 2534 2543 2548 
2646 2654 2663 2665 2673 2 2723 728 2730 2735 2737 2742 2744 
2749 2751 2756 2758 2763 2765 2770 2777 2782 2811 2815 2819 2824 
2826 2831 2833 2838 2840 2845 2847 2852 2854 2859 
2951 2959 3014 3016 3021 3023 3028 30 3035 3037 3042 
3049 3051 3056 3063 3097 3101 06 3111 113 3118 3120 
3125 3127 3132 139 3141 3146 3216 3222 32 3231 3239 3248 
3305 3310 3312 3317 3319 3324 3326 3331 3333 3338 334 34 
3352 3359 3 3 417 22 3424 3443 
5 50 3452 3457 3529 3535 3542 3544 3552 3561 3615 3620 3622 
27 3636 3 3648 3650 3655 7 74 
3716 3720 3724 3729 3731 3 3738 3743 3745 3750 3752 3757 3759 
3 3840 3 3849 3 3872 3880 3905 3913 3915 3923 3925 3927 
3932 3950 3955 3957 3962 969 3971 3976 3978 3983 3985 
2 009 4044 4049 4051 4056 4058 4 5 4070 4072 
4077 4079 4084 4086 091 4184 4190 4197 4212 4229 4245 4254 4262 
4271 273 4297 4302 4304 309 4311 4316 4318 4323 4325 43 4332 
4337 4339 4344 351 4356 4393 4397 399 4 4411 4413 4418 
4420 4425 4427 4432 4434 4439 444] 4446 4498 4505 4572 4577 45 
4588 4615 620 4625 4670 4676 4723 4726 4731 4733 4793 4800 
480 4807 4809 4812 4826 4829 4838 4840 4853 4855 4874 4877 6 
4887 4909 4915 4921 4930 4938 4940 4942 4944 4959 4 4973 
5009 5011 5016 5018 5023 5025 5030 5032 5037 5039 5044 046 
5051 5066 5071 5076 509 5112 5117 5119 5124 5126 5131 5133 
5138 5140 5145 5147 5152 5154 5159 5163 5168 5172 5177 5182 5187 
5193 5198 5325 5330 5335 5337 5340 5345 5352 5354 5356 5359 5364 
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368 3686 3689 3690 3691 3676 3694 3697 3698 3704 3705 3712 
3713 722 3723 3724 3731 3738 74 3752 3759 37 1 
3803 38 3 3814 3815 3816 3817 3818 3819 3820 3826 3827 3828 
3829 3830 3831 3832 33 3834 835 3836 3837 3842 3843 3848 
3856 3857 3860 3861 3 386 869 3870 3871 3875 3878 38 

3883 3889 3891 3892 3894 3895 3897 3898 3 3902 3903 
3 3 3908 3910 3912 3915 3918 3919 3920 3922 3925 3927 
3930 3931 3946 3947 3948 3949 3950 3957 3 3971 3978 3985 3992 
3 4 4001 4017 4018 4021 4022 4027s 40. 40 4031 
4040 4042 4043 4044 4051 4058 4065 4072 40 4149 4150 
4151 4152 4153 4154 4163 4 4165 41 4167 1 4174 4175 4176 
4177 4 4180 4181 4 4187 4188 4189 4193 4194 4 4 
4204 4205 4208 4209 = 4212 4215 4216 4221 4223 4227 4228 42 4237 
4 4239 4240 4241 4242 4243 4244 4245 4246 4247 4248 4251 4253 
4254 4257 4258 4259 4261 4265 4267 4268 4270 4277 4278 42 42 
4293 4295 42 4297 4311 18 4325 4332 «4339 44346 43547 
4348 9 4351 4365 4368 369 4372 4373 4389 = 43 4399 4406 
4413 4420 4427 4 4441 4488 4489 4490 4491 4492 4493 4494 4495 
a 4497 44 4501 4502 4503 4504 4507 4508 4514 4515 4516 4517 
4518 4519 5 4530 4531 4532 4533 & 4535 4 4537 4 4539 
4540 4541 4542 4544 4550 4551 4552 4553 4554 4555 4556 4557 4572 
4580 4583 4585 4 4591 4592 4593 4594 4595 4 4597 4 4601 
4611 4612 4613 4614 4615 4618 4619 4623 4624 4643 4644 4645 
4647 4648 4649 4650 4651 4652 4653 4654 4659 4 4670 4678 4679 
4680 4 4682 4683 4720 4722 4723 4726 735 4 4737 4 4739 
4740 4741 4742 4753 4754 4755 4756 4757 =—&_ 4758 4767 4768 4769 4770 
4771 4772 4773 4774 4782 4783 4784 4785 47 4789 2 4793 
4797 8 47 8 4803 4804 48 4812 15 4816 4819 4821 
4822 4823 4824 4825 4832 48 4835 48 4837 4840 4843 4845 
4846 4 8 4849 4850 4851 4852 4855 4858 4859 863 
4869 4870 4872 73 4877 =64880)3=—s_- 4883 
4892 4895 8 48 4902 4903 & 4905 4911 4912 = 4915 4918 
4920 4924 4927 49 4933 4935 4936 4937s 4951 oe 6 a 4954 4955 
4956 4957 4958 4959 4962 =. 4963 4964 4969 4970 4971 4972 = 4975 
4976 4977 =. 4978 49 4980 4981 4982 4983 4984 985 49 5001 
5002 5003 5 5011 5018 5025 5032 5039 5046 5059 
3 5 5 5081 5082 5083 0 5086 5108 5109 5110 5111 
5112 5119 5126 5133 5140 5147 5154 5161 5162 5189 5190 2 5283 
52 5285 2 5287 52 5297 5298 2 53 5301 5302 5303 5311 
5312 5313 5314 5317 5318 319 5321 5322 5324 5325 5328 3 3 
5333 3 5337 5340 343 4 5348 5350 5351 5356 5359 5362 
3 7 3 5369 370 5377 5379 5382 5383 384 5387 5390 
5391 5392 5393 397 5398 5401 5403 5408 5409 5410 5411 5412 
5415 5416 5417 5418 5419 5421 5424 25 5431 5435 54 5437 
5438 5443 5445 5446 5447 5451 5453 5456 5457 5458 5459 5460 5461 
5464 5466 5470 5473 5474 5478 5479 5482 5484 5485 5488 5489 5490 
5491 5494 5495 5498 5500 5504 5507 5509 5512 5515 5516 5517 5518 
5522 5523 5535 5536 5537 5538 5539 5540 5541 5542 5543 5546 7 
5548 5549 5553 5554 5555 5556 5559 5560 5561 5562 5563 5564 5565 
5 5567 5569 5570 5584 5585 5586 5587 5588 95 5602 5 
5616 5623 5630 5643 5644 5645 5646 5647 5648 5650 5652 5665 
667 5668 5670 5692 5693 5694 5695 5696 5703 5710 5717 5724 5731 
5738 5745 5746 5754 5755 5846 5847 5848 5849 5850 5851 5860 
5862 5863 5865 5871 5872 5873 5874 5875 5878 5879 5880 5881 
5885 5886 5887 5888 5891 5892 5893 5894 5902 5903 7 5905 5 
5907 5908 5910 5911 5914 5915 5916 5917 5918 5919 5923 5925 5926 
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8756 8759 87 8761 8762 66 8768 8771 8772 8773 8774 8775 8776 
87. 8785 8787 8791 8795 87 8797 8801 8803 
8808 8810 8811 8819 8820 8822 8825 8826 8831 8832 
8838 8 8843 8844 8845 8846 8854 8855 8857 1 
8865 8870 887 8874 8875 8876 8885 88 88 9 8892 8893 
8903 8909 8910 8911 8912 8921 8922 8924 27 = 8928 
8929 8930 8934 8935 8936 8937 8943 8944 8949 8950 8954 8955 8956 
8958 8989 8 8993 8994 0 1 9012 
2 2 9027 9028 9031 9032 9033 9034 9043 9050 9053 
9054 9055 9056 9065 9071 9072 9075 9076 9077 78 
9097 9100 9109 9110 9115 9116 9119 91 9 
9130 9135 9 9139 9140 9149 9150 9155 9156 9159 9 9169 9170 
9175 9176 9179 9180 9189 91 9193 9194 9197 92 201 9202 9203 
9 9207 9208 9252 9254 9255 9258 9267 92 9269 9270 9271 9272 
9273 9274 92 9287 9288 289 9290 9291 9320 9321 9322 9323 9324 
9325 9326 9327 9328 9329 9330 9331 9332 9333 93 9335 9 9344 
9345 9346 9 9348 9349 9350 9351 9361 9362 9370 9373 9374 9375 
9376 9377 9378 9379 9380 9390 9391 9399 02 03 0 
07 08 9422 30 9431 9432 9435 9437 
9439 9441 9442 9443 9444 9445 9446 8 9449 9450 9451 52 9453 
9454 9455 6 63 9475 9476 9477 9479 80 8 95 9501 9502 
9505 06 9510 9511 9514 9515 9520 9522 9523 9524 9525 9528 29 
9532 9533 9538 9540 9541 542 9543 9546 47 9550 9551 9557 9559 
9560 9562 9563 9566 9567 9571 9572 9579 9581 9582 95 9585 86 
9587 9591 9595 9 7 9619 9620 2 9623 
9650 9654 9655 9658 9659 9669 
9672 3 76 9677 69682 684 9685 96 9 
971 9702 9703 9705 06 9709 9710 9714 9715 9722 9724 9725 9727 
9728 9730 9733 734 9738 9739 9750 = 9762 9763 9764 97 9767 
971 9787 9788 9789 9792 9795 9796 98 9801 98 9805 9812 9814 
9815 9818 9819 9820 821 9822 9825 9826 98 9830 9837 39 =: 9840 
9843 9845 9846 9847 9850 9851 9854 9855 9862 9864 9865 9867 
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. 3830 3832 3836 3836 3838 3840 3842 
3864 3865 3867 3868 #3870 3872 3875 
3893 3895 3896 3898 3 3 
3916 3918 3920 3921 3925 3926 3927 
3951 3953 3957. 3958) 3 3 965 
3981 3985 6-39 3988 §6=6._—«3992ss«3993 Ss: 3995 
4019 4021 4023 4025 4027 «4028 = 8 40 
Wh & 7 4051 4052 4054 4058 


4569 4572 4573 457. 4577 4580 4581 
4598  -4600 4602 4609 4611 4613 615 
4 4643 4645 4647 4649 4651 4653 
4671 4673 4674 4678 4 4687 
4727, 4729, 4735 4737 4739 4741 4749 
4769 4771 4773 4780 4782 4784 4786 
4 4800 4801 4803 48 4810 4812 
4824 4826 4829 4830 4832 4833 4834 
4847 4849 4851 4855 4856 4858 4860 
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8 4900 4902 4904 4911 4913 
4925 4927 =: 4928 4930 4933 4934 4936 
4964 4966 4969 4971 4975 4977 

5002 5004 5005 5007 5011 5012 5014 
5032 5033 5035 5039 5040 5042 5046 
5067 5069 5071 5072 5074 5078 
5100 5102 5104 51 5108 5110 112 
5127 51 5133 5134 5136 5140 5141 
5157 5161 5163 5164 5166 5172 5173 
5189 5193 5194 5196 5200 5201 5202 
5286 5289 5296 5298 5300 5302 5309 
5322 5323 5325 53 5328 5330 5331 
5345 5348 5350 5356 5357 5359 5360 
5379 5380 5382 5387 5 5390 
5404 5406 5407 5408 5410 5412 5413 
5426 5431 5432 434 5435 5437 5443 
5453 5454 5456 5458 5460 5464 5465 
5478 5482 5483 5485 5486 5488 5490 
505 5507 5508 5512 5513 5515 5517 
5543 5544 5546 5548 5550 5553 5555 
5576 5584 5586 5589 5591 5595 
5610 12 5616 5617 5619 5623 5624 
647 5650 5651 5652 5653 5655 5656 
5673 5682 5684 5688 5690 5692 
706 5710 5711 5713 5717 5718 5720 
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6059 1 6065 6066 
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177. = 8178 ~=—s«8187-—s«*#BI 8 8192 8 
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8825 8827 8829 8831 33 8836 8837 
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8927 8929 8931 8934 89 8943 8946 
8959 8961 8965 8987 8989 8991 8993 
3 9021 9024 9025 9027-90 9031 
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1 9093 95 9101 
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9723 9725 9726 9728 9730 9731 9733 
9753 9762 9765 9767 9774 9775 
9783 9787 9789 9790 9792 979 9795 
9815 9816 9818 9820 9822 9823 9825 
9843 5 847 9848 9850 9854 9859 
9871 9873 9876 9881 84 9885 9887 
9900 991 13 9915 9917 9919 9921 
9935 2 9944 9946 9947 9949 9953 
9968 9970 9974 9975 9977 9981 9982 
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43 ROSS REFERENCE TABLE == USER SYMBOLS SEQ 0420 
15271 «15272 15273-15274) = «15275 15276) = «15278 )3=—s 15279) 15280) )3=s-«115281 15282) «15283 =: 15285 
15286 = 15287 15288 13689 15290 15298 299 15301 15303 15304 15306 15308 15309 
15311 = 15319): 15321) 15323) 15330) 0 15332) 15334 »=- 15335. Ss 15337) =: 115341 Ss: 115342) «15344 =: 15348 
15349 = 15351 3=—- 15355) 15356) )=—- 15358 )=—:115362 0S 15363) =: 15365 3=—s:« 15369 )9=— 115370) )9=s- 15372) 15376) =: 115377 
15379 15389. 15391-15393): 15396) 115397) 15398 )3=—s: 115399 «15401 §= 15402. 15404 915408 3815411 
15413 15416 §=- 15417) 15419) 15428 = 15435) 15437) = 15439) 15441 15445. 15445 = 15447 = 115449 
15451 15458 15460 15461 15462 15463 15464 15465 15467 15468 15469 15470 15471 
15472 = 15474 = 15475 15476) 15477) = 15478 §= 15479): 15481 = «15484 §=:15486 = «*15488 §=6 15490) )=s-: 15492 
15494 15496 15497 15499 15508 15509 15510 15511 15512 15513 15516 15520 15521 
15522 «15523-15524 = 15525-15528 )3=— «15537 Ss 15539) 15541 §=:15542 §= 15544 = 15546 §=—:*15548 §=— 15550 
15553 915554 §=- 15555 15556) = 115558 §=6 15559 )=s «15561 9=« 15565 9=:« 15568 )§=— 15904 9: 15906) « 15908 §=— 15910 
15912-15914 = 15918 )3=—s-«15933. Ss 15935): 15937 Ss 15939) 15943 = 15945 15947 15948 + 15950 15952 
15956 15970 15972 15974 15976 15980 15982 15984 15985 15987 15989 15993 16007 
16009 16011 16013 16017 16019 16021 16022 16024 16026 16030 16045 16047 16049 
16051 16055 16057 16059 16060 16062 16064 16068 16081 16083 16085 16087 16089 
16091 16095 16108 16110 16112 16114 16116 16118 16122 16169 16171 16173 16174 
16181 16182 16184 16186 16189 16201 16202 16°04 16206 16209 16210 16212 16214 
4h 19ee8 16222 916224 16226 16228 16230 16232 16235 16257 16239 16241 16247 
$LSTTA= 000001 4 525 527 552 572 58 601 604 611 13 620 627 634 
641 648 658 661 668 670 703 710 717 724 731 738 772 
792 800 821 824 831 833 840 847 854 861 868 875 906 
913 920 927 934 941 948 1016 1020 1032 1037 1042 1062 1070 
1074 1076 1086 1094 1098 1100 1108 1112 1135 1142 1149 1156 1163 
1170 1177 1195 1206 1211 1214 1218 1229 1234 1242 1249 1257 1259 
1272 1276 1284 1291 1297 1299 1311 1355 1357 1364 1371 1378 1385 
1392 1399 1406 1413 1420 1427 1433 1632 1636 1648 1653 1658 1678 
1686 1690 1692 1702 1710 1714 1716 1741 1748 1755 1762 1769 1776 
1783 1803 1814 1819 1822 1824 1831 1841 1852 1863 1866 1868 1876 
1883 1892 1894 1906 1950 1952 1959 1966 1973 1980 1987 1994 2 
2008 2014 2021 2027 2143 2148 2153 2173 2181 2185 2187 2197 220 
2209 2211 2222 2224 2231 2262 2269 2276 2283 2290 2297 2304 2326 
2337 2342 2345 2349 2361 2366 2374 2381 2389 2391 2403 2410 2416 
2418 2430 247 2478 2485 2492 2499 2 2513 20 527 2534 2541 
2548 2554 2655 266 2674 2682 2728 2735 2742 2749 2756 2763 2770 
2782 2815 28 2831 2838 2845 2852 2859 2941 2949 4 
3021 3028 3035 3042 3049 3056 3068 3101 3111 18 3125 3132 3139 
3146 3223 3229 3240 3248 3273 3280 3310 3317 3324 3331 33 
3352 3383 3 3413 3422 3429 34 4 450 57 3536 3542 
3553 3561 3593 20 3627 3634 3641 3648 3655 3674 93 
37 3720 3729 3 3743 3750 3757 3764 3845 384 3873 880 3913 
3923 3932 3955 3962 3969 3976 3983 3 3997 4049 4056 4063 
4070 4077 40 4091 4191 4197 4217 4229 4263 4271 4273 302 309 
4316 23 4330 4337 4344 4356 4374 4397 4 4411 4418 4425 4432 
4439 4446 4505 4527 4543 4548 4570 4578 4621 4625 4676 
4731 4733 4805 4807 4827 4838 4853 4874 4887 4891 4907 4909 4922 
4931 4938 4940 49% 4944 4967 4973 5009 5016 5023 5030 5037 5044 
5051 5065 076 5079 5091 5117 5124 5131 5138 5145 5152 5159 5168 
5170 5177 5187 5191 5198 52 5335 6 5352 5354 5365 5371 5373 
5375 53 5395 399 5420 5427 5429 5439 5441 5462 5468 5476 5480 
5492 54 5502 5510 5520 5524 5526 528 5551 5557 5593 5600 5607 
5614 5621 5628 5635 5649 5660 566 5675 5701 5708 5715 5722 5729 
5736 5743 5752 5756 5763 5769 5883 5889 5921 5939 5941 5967 5997 
6010 6016 6020 6022 6024 6026 6063 6070 6077 6084 6091 6098 6105 
6118 6143 6150 6157 6164 6171 6178 6185 6192 6199 6308 6314 6346 
6354 6365 6376 6390 6392 6398 6406 6412 6418 6436 644 49 6455 
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43024 43044 43 43114 43164 43184 43234 43254 43304 43324 43374 4339% 43444 
43514 43744 437 43934 43974 43994 44044 4 44114 46134 41 44204 
446254 4427H 46324 44344 46394 444614 46464 44984 45054 4527 45434 4547# 4 
45724 45 4 4 46154 20 46254 47234 47314 

48 48054 48074 48094 48124 4826 48 48 4 48534 48554 
48744 48774 48804 48874 48914 49064 49094 49154 4921 49244 9 49 4 
49444 49594 966 50044 50094 50114 50164 50234 50254 50 
50324 50374 S039H 50444 50514 50654 50714 50764 50784 0 50914 51124 
51174 51198 512464 1264 51314 51334 51384 14 51454 51474 51524 51544 
51634 1704 51724 51774 5179% 51824 51874 51914 51934 5 
53304 53354 53374 3404 53524 53544 535 53594 5364 53714 53754 
5377# 53944 53994 54014 54124 54264 54294 54314 54414 54484 
54514 54624 4644 54704 54 54854 54924 54964 54984 55044 55 55124 
5519 55244 55264 55284 55434 5550 55574 55934 55954 56024 56074 
56144 56164 56214 56234 56284 56304 56354  5649% 56554 56604 4 56704 
56754 56 57014 57034 5708 57104 57154 57174 57224 57244 5729 57314 
7 57434 57474 57524 57564 57584 576 57654 58754 59114 5920 
9 59394 59414 59874 599 60054 104 124 60224 2 60264 
60584 Sa 7 72# 60774 60794 6084. 14 61 
61054 61134 61184 34 61454 61504 61524 61574 61594 61644 61664 61714 
61734 61784 61804 61854 61874 61924 61944 1994 6307 63144 63364 6345 
63544 6. 63724 638 63924 63944 0 64124 64184 
2 64414 6449 64574 64714 64814 
64874 64924 6 65024 65344 65394 65414 65464 65484 65534 65554 65604 65624 
65674 65694 65744 5764 65814 65894 65 66144 4 66314 66334 
a 66524 66574 70514 7058 70654 71084 71194 71294 71314 
71404 7145 71504 71964 72254 72274 72354 72614 72504 7257# 72664 
72824 72874 732464 73304 7. 73524 67 4 7 73754 = 7 
73874 867 73934 3964 74044 74 74124 74154 76220 74264 7427H 74 744c 
74474 764514 74534 764574 76 74664 74714 74754 74774 74814 74874 7492 74974 
7: 75114 7516 75214 75534 75584 75 75654 75674 75728 
7 75814 75 75954 76004 76104 76164 7 76374 7642 
76624 76694 76794 76814 76914 76934 76984 77 77054 77074 77144 
77194 78754 78854 7913 184 79224 79274 79374 
79398 7H 879544 79594 79654 79704 79734 79784 79874 
79974 80074 80144 80174 80274 80294 80614 
80824 80914 81 81114 81214 8129% 81374 81424 
81514 8156 81614 81874 81984 O84 82224 82354 82374 824 82874 
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83524 83654 83914 83934 84034 84054 84154 84174 84224 84244 
843 84364 85794 85984 on 74 86124 8618 865 866 86704 
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Mt 99464 9951 584 996 99654 99674 99724 99744 99 99814 
99864 99934 100124 100174 100194 100424 100474 10122 10127# 101344 101444 
101464 101564 101694 101754 10180# 101824 102094 102194 10257 10274 10279# 102864 1030 
103084 103154 10334 103394 103794 103844 104034 10414 104184 10423 284 10435 104414 
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93708 9387 9392 93 8 9423 94634 9468 94874 9498 17 9535 9554 
9576 9599 96074 9612 96314 9642 9661 9679 9697 9719 9742 97504 9755 
97744 89785 9809 9834 9859 9881 9904 99464 9951 99534 9958 99604 9965 
99674 9972 99744 9979 99814 9986 99884 9993 100064 10019 100424 10047 10122# 
10127 101344 10144 101464 10156 101694 10182 10209# 10219 10257# 10274 10279 102864 
10 10 03154 10334 10339 10379# 10384 104034 10414 10433 10451 10470 10492 
10515 105234 10528 10549# 10560 10579 10597 10615 10637 10660 106684 10673 106924 
10703 10727 10752 10777 10799 10822 108644 10869 108714 10876 10878# 10883  10885# 
10890 108924 10897 10899# 10904 10906# 10911 10925# 10938 109614 10966 110414 11046 
11053# 11063 11065# 11075 11088# 11101 111614 11171: #111744 #11179 111884 11198 112094 
11216 §=611240. 11242 =11345 11359 11364 11375 11397 11399H 11426 11428 11454 114564 
114746 11476# «11498 11505 11510 11521 11543 11545 11567 11569 11590 11592 11610 
116124 11634 116664 11671 11673# 11678 116804 11685 11687 11692 11694# 11699 117014 
11706 «4117084 #11715 117184 #11723 11728H 11735 117414 11746 11776# 11781 117834 11793 
117954 11805 118744 11882 11894# 11899 11906# 11913 11918# 11936 119384 11946 12098 
12100# 12105 121364 12141 12145# 12155 12158# 12168 12171# 12234 12236# 12261 122634 
12337 = 12339H 12398 1246004 12460 12462 12523 12555# 12560 12562# 12572 12577# 12582 
125844 12589 12600 12615 12618# 12625 126314 12641 12647# 12654 12657# 12662 12709# 
12714 =12716# 12726 127284 12738 127434 12748 12750 12755 12759% 12774 12827# 12837 
128694 12879 12977# 12982 12984# 12989 12991 12996 129984 13003 130054 13010 130124 
13017, 130194 13024 13037H 13050 13058 13063 13136# 13141 13148# 13158 13160# 13170 
131924 1320 13232 13242 13345# 13350 13352# 13357 13359% 13364 13366# 13371 133734 
13378 = 13. 13385. 133874 13392 134064 13419 13427 13432 13506# 13511 13518# 13528 
135304 13540 13562# 13575 136 13646 136584 13668 13679# 13686 13710 13712# 13813 
138334 13848 13895 S# 13920 13967 13999H 14004 140064 14016 14018 14028  14035¢ 
140460 140714 14076 140784 140904 14100 141694 14184 14219 142304 142355 142424 
14249 142604 14268 42784 14286 14288 14400 144024 14488 14518 14523 14525# 
14533 14535 14543 45484 14553 14555 14560 145724 14587 145904 14595 14600 14607 
146104 14615 146464 14651 14663 146654 675 146804 14685 46874 14692 146964 
14711 147634 = 14773 4806 14816 149144 14919 149214 14926 149284 14933 14935# 14940 
14947 14949% 14954 49564 14961 149754 14 15 150724 15077 150844 
5 15 15106 51284 15141 15178 15188 15221# 15231 153 1533 15341# 15346 
3484 15353 153554 360 15367 153694 4 153764 1538 15408 15416# 
15421, 154964 15501. 15508 15518 15520# 15530 15552# 15565 159034 15916 15932# 15954 
159694 15991 8 16066 160804 161074 16120 16168 16245 
$NSK1 = 000110 5204 525 5624 571 580 5934 603 613 6154 6224 627 6294 
6 6364 641 6434 648 6504 660 670 7824 791 8134 823 
833 8354 840 8424 847 Fad 854 8564 861 je 8704 875 
10644 9 1074 1 3 1 11954 1210 12184 1253 12424 1253 12664 
1271 1276 2844 81293 13514 1355 14224 1427 16804 1690 1 1709 
1714 1818 18244 1837 18524 18764 1888 1946 1950 20164 1 
21754 2 185 21 2209 23264 341 2349# 2365 23744 2385 24034 
2412 2472 = 2476 25434 2548 4217# 4224 42544 4262 4271 45434 4547 
4586 47264 31 4 4 481 4826 2 50714 5172# 65 51934 
51 3 53 53374 5354 53564 5373 53864 53 54124 54314 39 
54414 5448 54514 54644 496 54984 56554 57584 5763 59304 
5939 9414 59874 24 63544 6360 63724 392 63944 1 2 
64514 64924 65 7119# =7124 7129 7225 4 73 7404 
7415#@ 7422 74268 = =7451 460# 7475 74874 7492 7497 75114 7516 7521 76164 
7621 7937 74 3 7 7a 80174 
8022 8027 8077 8082 81044 8111 82224 823 8 8350 85984 
8650 86584 72 1# 8693 86 8707 87164 8728 87314 8742 87514 
8763 87664 87 87864 8798 # 8812 88214 88 8847 S64 
77 88874 95 89054 8913 89234 89454 90014 9013 90234 


88694 88 88 8931 8951 1 
9035 90454 9057 90674 9079 90894 9101 91114 9121 91314 9141 91514 9161 
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7 958 9597 96468 9% 9656 96694 


95634 9568 9573 7# = =9592 51 9674 96874 99692 
9706 8 9711 9716 97304 9735 9740 97894 9806 98154 98404 9856 
9873 9878 98924 9897 9902 100124 10017 101754 10180 104184 10423 042 104414 
10446 1045 10464 104 10484 10489 105034 10508 10513 10569 10574 10587# 
10592 1060 10610 106244 10629 10634 106484 10653 10658 10707# 10724 107334 10749 
107584 10774 107864 10791 10796 108104 10815 10820 109314 110944 11099 112194 
11226 =611238 «= 11247 =11257) «911341 =: 113814 =11386) «6911391 = 114024 311424 114314 11452 114624 
11467 93911472) = 114814 911486 11491 11527# 11532 11537 115514 11561 9115744 11579 
11584 115984 11603 11608 11617 11622 11627 11923# 11933 11952 12022 12027 12096 
12171 121946 12198 12232 12241 12249 12251# 12259 122664 122954 12335 12342# 
12357 = 12359# «12396 §=612409H 12614 12419 12427H 12435 12440 12442 12451 124534 12458 
124784 12483 12488 12490H 12498 12503 12505 12514 12516# 126064 12611 127654 
12772 = 128304 «12835 130434 13048 131984 13203 134124 13417 13573 1 13696 
13708 137174 13727 13811 138364 13841 13846 138514 13858 13874 138814 13886 
13891 = 13 13913 13918 §=613923# 13930 13932H 13946 139534 13958 963 141724 14177 
14182 141874 14194 141964 14204 14207# 14212 14217 143114 14336 143358# 14353 143554 
14388 143914 14398 144134 14486 14578# 14583 14702 14709 14766# 14 149814 14986 
15134# 15139 151814 15186 15401 15406 155584 15563 159414 15947 15978# 159 60154 
16021 160534 16059 161814 16186 16191 162014 16206 16243 
SNSK2 = 000120 5964 601 6064 611 6534 658 6634 668 8164 821 8264 831 12014 
1206 12244 1229 12444 1249 12864 1291 18094 1814 18264 1831 18584 1863 
18784 1883 23324 2337 23554 2361 23764 2 24054 2410 4829" 48 48404 
4853 48554 7 48774 4915# 4921 940 5345 352 5359# 5364 
5371 54204 5426 5470# 5475 54 54854 5492 55 5510 55124 5519 5524 
9934 6022 6 63 6405 6412 184 24 64294 6457# 6464 
73754 7380 7385 74274 = 7434 74428 = 7447 74664 7471 7913 8 79544 
59 797 7983 86124 8618 864 86654 70 92044 9209 97924 9797 9802 
98224 9827 98474 9852 10710# 10715 10720 10740 10745 10765# 10770 11229# 11236 
112504 11255 112624 11269 11281 1 11339 «11408 11413 11418 11436 11441 11446 
119654 11980 119824 11987 1198 1201 120134 12020 12 12038 120404 12094 
121824 12187 12192 1220464 12214 12219 122214 122 122694 12276 122814 12286 12291 
123014 12311 12316 123184 12327 12345# 12350 12355 12 12372 12377 12379# 12388 
136 13706 §=13 13725 13732H 137 13751 137534 1 143144 14319 14334 143614 
14377 14382 14419% 914424 14426H 14433 14484 162 16216 1621 16232 
$NSK3 = 000120 4 4887 48914 4906 4924# 4930 4938 60054 6010 60124 6020 11272# 11279 
112974 11305 1130 11332-11337) Ss 119684 11973 11978 11997# 12004 12047# 12057 12066# 
iret 120814 12091 13742H 13749 13767# 13775 13778# 13802 13807 143664 14373 144554 
$NSK4 = 000110 113114 11318 11330 137814 13788 13800 1446614 14468 14473 
SNSKS = 000110 113214 11328 137914 13798 
SNULL 000432 16455 
SOCNT 057306 16516* 16546* 165594 
057310 16511* 16515* 16520 16523* 16534* 165614 
SOVER 056072 16265 16272 162794 
SPASS 36 3994 453* 4580 15816* 15817* 15823 16268 
SPASTM 2874 
056254 163224 
SPWRDN 056110 443 162894 16317 
SPWRUP 162 16299 163054 
SQUES 000442 3184 1663 16687 
SRDCHR 057624 166514 16805 
SRDLIN 057744 166794 16806 
SSAVLE= 177777 14 1210 12114 12334 12344 18184 


18194 18654 18664 22234 2227 2341# 23420 
23654 23664 3279% 32804 33894 3390H 35924 35934 3699 3700# 45474 45484 49064 
4907# 50784 SO079# 5394 5395# 54264 5427 5662# 56634 5966 59674 6474# 64784 








D 2 
KEF11-8 CIS DIAGNOSTIC MACY11 30A(1052) 14-MAR-80 08:04 PAGE 414 


CJKDGA 
END.P1{ — 08-FEB-80 13:43 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0428 
7227# 72284 7241# 72424 7330H 73318 76234 76244 78784 78824 82374 82384 8352s 
83534 86934 86944 87284 8729% 87634 87644 87984 87994 88334 88344 88664  8867# 
88774 784 88954 8896" 89134 891 89314 89324 89514 89524 90134 901 90354 
90574 905 90794 9080" 91014 91024 91214 91224 9141# 91424 91614 9162m 
91814 9182% 9300# 93044 10019# 100204 101824 101834 1021c# 102164 10938# 109394 111014 
11102 111644 117 111914 111954 113054 113064 118824 118834 119264 119 120104 120114 
120504 120544 12069# 120734 120914 120924 126154 1261 126344 126 127744 127754 12872# 
128764 130504 13051H 132054 13206# 132354 13239# 13419# 1 135754 13576# 13639% 1364 
1# 136654 137754 137764 138744 138754 139464 139474 142 142054 143884 14 144818 
144824 145874 145884 147114 147124 148094 148134 149884 14989H 151414 15142# 152244 15228M 
154084 154094 155654 15566 162324 162334 
SSAVR6 056264 16298* 16306 16307" 16308* 16326 
SSCOPE 055770 439 16262 
$SSKO = 052351 1210# 1211 1233 12346 18184 1819 18654 1866 22234 2227 2341 2342 2365« 
2366 3279% 3280 3389" 3390 3592" 3593 3699" 3700 4547# 4548 4906" 4907 
50784 50 53 5395 5426" 5427 5662m ES. 7 = 6474 78 7227h 
7228 486 72414 += 7242S 73304 = 7331S 76234 = 7624 «= 7878 = 7882) B237H# «= 8238 )=— B352e «= 88353 
9 87284 87. 87634 8764 8798" 3 34 7 # 
78 88954 8896 89134 8914 89314 8932 89514 134 9014 9035# 
90574 90 90 9080 9101# 9102 91214 91414 9142 91614 9162 91814 
9182 93 9304  10019# 10020 101824 10183 10212" 10216 384 10939 11101# 11102 
1644 11168 111914 11195 11305# 11 118824 119264 11930 12010# 11 12050" 
12054 120694 12073 120914 12092 12615# 12616 6344 1 27744 12775 128724 12876 
13050 13051 13205# 13206 13235# 13239 134194 1 135754 13576 13639M 3 # 
5 137754 13776 138744 13875 13946" 13947 142044 1 3884 14389 144814 14482 
145874 14588 14711# 14712 148094 14813 14988 14989 151414 15142 15224 15228 15408# 
15409 155654 15566 162324 16233 
SSVLAD 056050 162754 
$SVPC = 000300 2624 =. 267 
SSWREG 000652 407# = 456 
STAGLE= 177777 1# 519% 522 5254  S527# 5534 564# S72H S73# S80H ‘S9S# 598# 6014 
6044 6054 6 6114 6134 6174 620% 6264 627 6314 6344 638% 6414 
6454 6524 6554 6584 6614 6624 6654 6704 6744  700H 7034 
707# = 710#@ = 714K 717 = 721 724 728K 731K 7358 77347. 7928 
7934 815# 818 821% 8264 8254 8284 8314 8334 8374 840% 8444 
8474 8514 8544 8584 1# 8654 8684 872 8754 8 9034 9104 
9134 9174 920 9264 9274 9314 9344 9384 941% 9454 9484 10124 10164 
10174 1020# 10334 10374 1038 10424 10584 10624 10634 1066 1070# 10714 10744 
10764 10824 10864 10874 1 10944 10954 10984 1100# 11044 1108# 11 11124 
11324 11354 11398 114624 11464 1149 11534 1156 1160 11634 11674 11708 11744 
11774 11924 11964 1200 12034 12064 1210 12144 12154 1219 1223% 1226# 1229 
12334 124634 12464 12498 12534 1259% 12654 1268 12724 12734 12764 12854 12888 
12914 129 1299# 1308 13114 13504 13524 13554 1357 13614 13644 1368H 13714 
13754 13784 13824 13854 13898 13924 13 13994 14034 14064 1410 14134 14214 
14244 14274 14298 16284 16324 16334 16 1649# 16534 16544 16584 16744 16784 
16824 16864 16874 1690 16924 16984 1702 17034 1706 1710# 17114 17144 
17164 17384 17414 1745# 17484 17524 17554 1759 17624 1766 1769 17734 17768 
17804 17834 17964 18044 18084 18114 18144 18184 18224 18234 18254 18284 1831# 
18374 18534 18574 18604 186 18654 18684 18724 18774 18804 18834 18884 18944 
19034 1906# 19454 19478 1950# 19524 19564 1959# 19634 1966# 19708 19734 1977# 
1 19844 19874 19914 19944 1998% 20014 2005 2008 20154 2018# 20214 20234 
21444 21484 2149% 21534 2169% 21734 2174 21778 21818 21824 21854 21874 21934 
21974 21984 22014 22054 22 22094 = 22114 = 22 22H# 224K = 27H = 230K = 223 1H = 2259 
22624 2 22694 34 22764 22804 834 22874 22908 22944 2297 23014 23044 
23234 «= 2327H# = 23314 344 23374 «23414 = 2345H 234 2350 23544 2357 23614 23654 
23754 23784 23814 23854 = 2391H «=—2395H# «= 4044 «= 4074 «= 10H «= 12 «= 18H «= 2427 = 30H 
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24718 734 246764 24784 24824 854 24894 
1 25174 25204 25244 25274 25314 
26564 34 26674 26744 2675# MH  =e725h 
27498 534 r 27604 276 27674 
28284 28314 28354 28384 28428 8454 8494 
534 Soon a 30114 144 
30394 on 0 564 be rad 
31184 31224 31254 3129% 31324 31364 1394 
32334 32404 32414 32484 32744 32764 32794 
33284 33314 33354 33 3342 33454 33494 
34104 134 8 =—3419%# = 342 342 34294 343 
34574 35 35364 35374 3542 35464 35534 
36208 362464 36274 36314 36344 36 a 
36714 36744 36944 36 37174 37204 
37474 = =63750H 86037544 837574 = =—357614# = 57 38414 
39074 39134 39174 9234 39294 39324 
39734 39764 39804 39834 39874 3 
40564 40634 40674 40704 40744 40774 
4192 41978 42148 42184 42244 
43024 43094 43134 3164 43204 43234 
43534 43564 43754 43784 43944 43974 44014 
44258 4429% 4432 44364 44398 44434 44464 
& 45744 45784 4579% 45824 4 45884 
4725#@ 47284 47314 47334 4795H 48024 8054 
4 48424 48534 48574 48744 4879% 48824 


50514 50704 507 784 
51314 51354 51384 51424 5145# 5 51524 
5177# 1794 1844 51874 51924 51954 1984 
53474 8653524 53544 3584 53614 53654 
3944 5399 5405# 54144 54214 54234 

54554 54624 54694 54724 4764 5477# 
55144 55204 55214 5244 S264 55284 5545# 
6044 7# 8656114 56144 56184  5621% 
5657# 6604 56624 56724 56754 56984 57014 

57264 5729 57334 57 7404 434 
58844 S5889% 5913 59214 5922  5932# 

60074 60104 60174 60204 60224 244 
60814 B84 60914 54 BH 61024 
61504 61544 61574 61614 61644 61684 61714 
6 1 63024 63084 63144 63384 

63774 63854 63904 6392H 63 64024 

64414 64454 6449 64564 64594 644 
8 65004 65024 5364 65434 

65674 65714 65744 65784 65814 65914 6 
7# 5 66574 70534  7059# 06 

71264 1 71314 71424 7146 71474 7150# 
2 72414 72544 7257 72714 72744 a 
73544 73714 7377# 73824 

74144 7419% 7422 74264 74314 

4 74714 74754 7477H 74834 

75184 75214 234 8 7555# 8H 75624 75654 
7597# 76 76114 76154 76184 
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18934 1902 10" 1944 19454 1946 19474 


1976 19774 983 19844 1990 19914 1997 
20184 024 027 20284 2140 2142 2143 
21748 2176 21774 2180 21824 2192 219 
2221 22224 22234 = 2.2.26 22274 «2258 22598 
2286 22874 2293 22944 2300 23014 2322 
2333 23344 2344 235464 2349 23504 2351 
7 23784 386 2389 23904 2394 23954 
24174 2426 2427 2470 24714 2472 24734 
2502 25034 2509 25104 2516 25174 2523 
25454 2551 554 25554 2 26474 2654 
27258 31 2732 «62738 2739" 8274 27464 
2778 27798 28124 28 28214 r 
2 2855 28564 2932 293534 2940 29424 
3017 30184 3024 30254 3031 30324 
30654 3097 30984 3107 31084 31154 
3142 31434 3216 32174 3222 32244 
32764 3306 33074 3313 33144 33214 
3348 33494 360 33614 3383 33844 3385 
34264 32 334 3439 34404 34474 
3545 35464 3552 35544 3586 35874 
36314 37 36384 3644 54 36524 
9 716 37174 3725 37264 3732 
37544 3760 37614 3840 38414 4 38464 
3916 39174 926 392 3929# 3951 39524 
39 OF 3986 39874 3993 4005 
4 40674 4073 40744 4080 40814 
4213 42144 4217 42184 4249 42504 42 
3 43134 4319 43204 43278 
4374 43754 4393 43944 4400 44014 44 
4 4435 44364 4442 44434 44 4 
4567 4570 45714 4573 45744 = 4577 45794 
4671 46724 4724 47254 4727 47284 
48144 4826 48284 4830 48314 48424 
4 48924 4893 48944 4916 4917# 4921 
49614 4966 5005 5 50134 
5040 50414 504 50484 5065 5 
5113 51144 1 51214 5127 51284 5134 
51564 5164 51654 5170 51714 5173 51744 
5201 204 52054 5326 53274 5331 53324 
5357 53584 5360 53614 5 53 
5402 5404 54054 5413 54144 5420 54214 
5452 5454 54554 5465 6 6 
5501 5502 55034 5 55064 5513 
5552m 55904 5596 55974 3 6044 
5631 56324 5649 56504 5651 5653 56544 
7 57054 5711 57124 5718 57194 5725 
5749# 5756 5757# 57604 5766 5769 
1 5920 59224 5931 59324 5941 59424 
7 9984 6006 60074 6013 6015 6016 
60744 60814 608 60884 6094 60954 
1 61474 6153 61544 6160 61614 6167 
61894 6195 61964 6301 63024 6307 63094 
6370 63714 6373 6375 6376 63774 6384 
64024 5 6407 641 6419# 6430 64314 
8 64594 2 64734 64744 6477 64784 
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14587 147014 14711 147684 14771 148134 14816 14980 14988 151334 15141 151834 15186 
152284 15231 154004 15408 15557 15565 162114 16216 1621 16232 
$TSK10= 051460 B ihe 1e7cte Bead 9802 98244 9827 98494 9852 107124 10716 107174 10720 107424 
$TSKe = 052351 5984 601 6084 611 6554 658 6654 668 81 821 82 831 12004 
1210 12234 1233 12464 1249 12884 1291 18084 1818 18284 1831 18574 61 
18804 88 23314 23544 365 23784 2381 24074 2410 5464 4 48314 
4838 48424 85 48574 48794 4909 4917# 4922 49234 4940 50734 
53424 53474 53614 5365 3664 5371 53894 394 54214 5426 54724 
5476 5477# 5480 54874 49 55064 5510 55144 5520 55214 5524 56574 
59444 599 6022 63854 6390 64024 6406 64074 12 64194 64314 
6464 72124 7225 73774 =73381 73824 7385 743184 7434 74448 87447 
74684 7471 76184 7621 79104 7914 79154 791 79564 7959 79804 7983 82244 
8235 83474 350 94924 9555 95564 9600 96364 9698 96994 9743 97 9 
98614 9905 100144 10017 101774 10180 10408 10471 10472 10516 10554# 6 106174 
0661 106974 1077 10779# 10823 109334 10936 110964 11099 112334 11236 11252# 11255 
112664 11270 112714 11281 11285# 11339 11410# 11414 11415 11418 114384 11442 114434 
11446 119304 11933. 119674 11980 119844 11987 11990# 12010 12017 12020 12035# 12038 
120424 12061 120624 12096 12184# 12188 12189 12192 12211# 12215 122164 12219 12227# 
2230, 12273 12276 122834 12287 12288# 12291 123084 12312 123134 12316 123244 12327 
12347 12351 123524 12355 12369# 12373 123574 12377 123854 12388 126084 12611 12767# 
12772, 130454 13048 13200H 13203 134144 13417 13570# 13573 137034 13706 13722# 13725 
37364 13740 13741# 13751 13755 13809 138634 13874 139354 13946 14199 14204 143164 
14320 143214 14334 14360H 14388 144214 14424 144284 14434 144354 14484 14580# 14583 
147044 14709 149834 14986 15136# 15139 154034 15406 155604 15563 162214 16232 
$TSK3 = 052204 12034 1206 12264 1229 18114 1814 18604 1 23344 2337 23574 2361 48824 
4887 4892H 4906 49264 4931 4932# 4938 54234 5426 60074 6010 60174 6020 
94924 95 95374 9600 96364 9680 14 9743 97794 983 98364 5 04 
10452 104534 10516 10554# 10598 105994 10661 10697# 10753 107544 10823 11276# 11279 
112984 11305 11310H 11333 113344 11337 119704 11974 119754 1197 19944 12010 1204 
12051 120544 12058 12068# 12070 120734 12077 120824 12091 13746# 13749 37684 13775 
137804 13803 13804 13807 143634 14378 143 14382 144564 14481 
$TSK4 = 052205 48944 4906 94924 9518 95194 9600 96 9662 96634 9743 9810 98114 
9905. 104084 10434 104354 10516 105544 10580 105814 10661 10697# 10728 10729# 1082 
113024 11305 11315 11319 11320# 11330 120014 12004 120544 12057 12073# 12076 12 
12091 137724 13775 13785# 13789 137904 13800 14370H 14373 14460# 14481 
$TSKS = 052207 94924 9498 94 96364 9642 964 9743 97794 9785 97864 9905 104084 
10414 104154 10516 105544 10560 10561 10661 106974 10703 10704 10823 113254 11328 
137954 1379 144634 14469 144704 14473 
$TSK6 = 051444 94924 9517 9535 9554 9599 96364 9661 9679 9697 9719 9742 97798 
09 9834 9859 9881 9904 104084 10433 10451 10470 10492 10515 10554# 10579 
10597, 10615. 10637 Ss 10660 »=:106974 ~=10727 10752 10777 10799 10822 
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142864 142884 143114 143144 14319 143344 143364 143384 143534 143614 143664 143734 14377 
143824 143914 143984 144 1 resi 14413H 144194 144246H 144264 144353 144614 14468 144734 
144844 144864 144884 145184 1452 145254 145334 145354 145434 145484 145534 145554 145604 
145784 145834 14590# 145954 14600 146074 14610# 146154 146464 146514 146534 1466 146654 
146754 146804 146854 146874 1 ret 74 147024 147094 1476 147664 147714 147734 149144 149194 
149214 149264 149284 149334 14935# 149404 149424 149474 14949H 149544 149564 149614 149814 
149864 149964 150014 150724 15077# 150844 150944 15 151064 151344 15139H 151784 151814 
151864 151884 153344 15339 15341# 153464 153484 153534 153554 15360H 153624 153674 153694 
153744 15376# 153814 154014 154064 154164 154214 154 155014 155084 155184 155204 155304 

SeeRFLe 000000 sae © 155634 161814 16186 161914 162014 16206 162094 162164 162434 

$$FLAG= 000001 14 5174 5194 5204 5224 5254 S27# 5624 5644 5804 934 5954 5964 

59 6014 6064 608 6114 6134 6154 6174 6204 V4 n\n -)4/, an | 
6314 6344 6364 6384 6414 64 S4 6484 6504 6524 6534 655 65 
6654 6684 6704 6984 7004 7034 7054 7074 71 7124 7144 7174 
719% 7214 7244 7264 7284 7314 7334 7354 7384 7824 7844 8134 
8154 164 8184 8214 8264 2 8314 8334 8354 8374 84 84 
847# 849 8514 8544 8564 8584 8614 8634 8654 8704 8724 8754 
9014 9034 9084 = 910H# (13H 915H# = 917# = 20H = (2k HA RTH COD 
9314 9344 9364 9384 = 941# = 43H 45H = 9484 = 10104 §=10124 10204 10284 10304 
10334 10424 10564 10584 10644 10664 10744 10764 #10804 10824 10884 1 1 
11004 11024 11044 11124 1130 11324 11354 1137 11394 1142 11444 11464 11494 
11514 11534 11564 11584 1160 11634 11654 11674 1170# 1172 11744 11774 11904 
11924 11954 11964 11984 1200 12014 12034 12064 1218 1219 12214 12234 12244 
12264 12298 12644 12464 1249% 1259 12634 12654 12 12 12764 12864 12884 
12914 1299% 13064 1308 13114 13494 13514 13554 13557 1359% 13614 13644  1366# 
13684 13714 13734 13754 13784 13804 13824 13854 13874 1389 13924 13944 13964 
1399# 14014 14034 14064 1408 1410 14134 1422 14244 1427 16264 16284 16364 
16444 16464 16494 16584 16724 16744 16804 16824 16 16924 16964 16984 17044 
17064 17144 17164 17364 1738 17414 174634 17454 17484 1750# 17524 17554 1757# 
1759# 17624 17644 17664 1769# 17714 17734 17764 17784 17804 17834 17944 1796# 
18034 18044 18064 18084 1809 18114 18144 18264 18284 18314 18524 18534  1855# 
18574 18584 18604 18634 18684 18704 18724 18784 1 18834 18944 19014 19034 
19064 19444 19464 19504 1952 19544 19564 1959% 19614 19634 19664 19684 19704 
19734 19754 19774 19804 1982 19844 19874 89H 1991% 19944 1 19984 20014 
2 20084 20164 20184 20214 2139% 21414 21444 21534 21674 21694 21754 
2177# = 821854 21874 21914 21934  2199# sso 22094 822114 22574 2259 22624 = =—2. 2644 
22 2269# §=—2271H = 73H = 76H = 78H BH 22854 22874 2290 2292H 2 
2297H# = =2299H =—23501K 86235044 = 5218 = 525K 526K e7H# 25314 23378 
2 OF 23524 23544 2355H 23574 2361 237 23784 8=—2381# §=—591H = 395K 3 
24054 26074 24108 24184 24254 2427H 24 2470H 2472 24764 = 2478F# = 24824 
24854 2487 = 2489 = —2492H 249468 26964 2499% 25014 25034 25064 25084 2510# 25134 
25154 2517 25208 25224 25244 25274 2529H 25314 25344 25434 25454 254 
26654 26674 eS 2725# 627284 Piet Shiee 2737# = o739H = 74K 
27444 = 27464 = 749K = 751K SH e756H = =6—e758H# 7 76 S# 27674 2 2777# 
2 27824 8628114 28154 28198 28214 28244 28264 28284 28314 283534 28354 28384 
28404 2842# Bite 7H =2849H% = =28524 = 28544 S64 28594 29324 29514 29534 
50094 114 144 30164 ab 0214 302354 254 84 304 30352" 30354 
30394 30424 44 30464 94 =§=630514 534 564 SA 30684 30974 
31014 9 3106 31084 31114 31135 31154 1184 $Sor 3! on +4 cee its 4 31324 
134 31364 3139 31414 31434 31464 164 2oF $ 14 32534 1 327 
32764 3305# 33074 $3) O# 33124 33144 33174 3319% 335214 33244 33264 ; 284 35314 
33334 33354 333 3404 33424 33454 33474 tists 33524 3359% 33614 33644 338 
33864 3409 34134 34174 3419% 34224 244 834264 $eSee 314 =—34334 8354364 
3440H 344 34454 34474 34504 34524 34574 5298 S424 35444 35464 
35614 35864 35874 3589 36154 3617 36204 36224 36244 36274 36314 36344 
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SOFILL 057307 16510* 16514* 16524 165604 
$50000 001550 518 5274 
$50001 001550 521 5254 
$50002 001606 5524 675 
$50003 001634 563 5724 
$50004 001644 571 5804 
$50005 001712 94 6044 
$5 001710 597 6014 

001726 603 6 
$50010 001726 607 6114 
$50011 001740 616 6 
$50012 001752 623 6274 
$50015 0017 630 6344 

14 001776 637 6414 
$50015 002 644 
$50016 002030 651 6614 
$50017 002026 654 6584 

20 002042 6704 
$50021 002042 664 84 
$50022 002110 699 7034 
$50023 002122 0” 
$50024 0021 713 7174 
$50025 002146 720 7244 
$50026 002156 727 7314 
$50027 0021 734 73 

50030 002232 7728 880 
$50031 0022 783 792H 
$50032 002270 791 8 
$50033 0023 814 8244 

34 0023 817 8214 
$50035 002352 823 83 

36 002352 827 8314 
$50037 002 836 8404 
$50040 002376 843 8474 
$50041 002410 850 8544 
$50042 002422 857 8614 
$50043 0024 
$50044 002446 871 8754 
$50045 002512 902 
$50046 002524 9134 
$50047 002536 916 9204 
$50050 002550 923 9274 

51 002562 930 9344 
$50052 002574 937 9414 
$500535 002 Sah 9484 
$50054 002740 1011 10164 
$50055 002742 1015 10204 
$50056 00 1029 10324 
$50057 00 1031 10374 
$50060 003016 1036 10424 
$50061 3062 1057 10624 
$5 003104 1061 10764 
$50063 003100 1065 10704 
$5 3104 1069 10744 
$50065 003124 1081 10864 
$5 003146 1085 11004 
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3054 3716 © 37204 
013074 3725 3729" 
013106 3732 (37 
013116 3739 «37434 
013126 3746 © 37504 
013136 3753 «37574 
013146 3760 374M 
012302 99" 367 
013312 3840 38454 
013316 3844 384 
013376 5 38734 
013420 3872 38804 
013530 3 39134 
013554 3916 39234 
3602 3926 3928 = 39324 
34 3951 3955 
013224 38 4007 
6 3958 39624 
3965 39694 
013672 3972 39764 
04 3979 39834 
013716 3986 «3 
013730 3993 3997 
013754 4005 40n# 
4045 40494 
014270 4156" 4354 
014076 4052 40564 
106 4059 4 
014116 4066 407 
014126 4073 40774 
136 4080 40844 
014146 4087 40914 
342 4184 41914 
014352 4190 41974 
014440 4213 42298 
014412 42174 4225 
014562 4249 42734 
145 4255 
014562 4262 42714 
14634 4298 43024 
14646 4305 43094 
14660 4312 43164 
014672 4319 432 
14704 4326 43304 
014716 4333 43378 
14 4340 43444 
014754 4352 4356# 
15 4374" 4379 
015050 393 43974 
015 4400 44044 
032036 93114 10045 
015074 4407 44114 
015104 4414 44184 
015114 4421 44254 
015124 4428 44324 
015134 4435 44398 
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025436 7425 74514 
025376 7428 7430 74344 
025432 7443 74478 
025506 7458 74774 
025506 7461 74754 
025500 7467 74714 
025550 7482 74998 
025544 7488 74934 
025550 7492 74978 
025620 7504 
025612 7512 75174 
025620 7516 75214 

702 7554 
025714 7561 75654 
025726 7568 75728 
025740 7575 75798 
025752 7582 75864 
025764 7589 75934 
025776 596 6004 

26012 76104 7623 
6040 7612 614 76244 
26036 7617 76214 
026070 7638 6424 
026136 7663 7667. 
026152 7670 7672 76754 
026156 7674 7679 
026172 7682 76874 
026176 76 7691 
026212 7694 984 
026226 7701 77054 
026242 7708 77128 
56 7715 77194 

560 7876 78794 
026556 78774 7885 
026572 7881 8864 

126644 7901 79224 
026644 7 792) 
026640 79144 
026644 7913 
026670 7928 79394 
026670 7931 7937# 
026732 7945 a 

6732 7948 79634 
026726 7955 7959# 

776 7971 79894 
026776 7974 4 
026770 7979 79834 
027026 7995 80094 
027022 7998 80034 
027026 8002 80074 

062 8015 80294 
027054 8018 802 

062 802. 80274 
027162 8062 8067, 
027212 8066 80844 
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027206 8072 
027212 077 
027226 8087 
027270 8100 
027270 8105 
7304 8122 
027312 8124 
027330 8138 
027346 8152 
027352 8156 
027414 8188 
027414 82084 
027456 8210 
027454 8223 
027570 8283 
27602 
027614 8297 
027626 83 
7640 8311 
027652 8318 
7664 8325 
7700 83394 
027726 8341 
027724 8346 
027752 8361 
030016 8387 
030032 83 
030036 8398 
030052 8406 
030056 8410 
030072 8418 
106 8425 
030122 8432 
031264 89634 
031264 89644 
030410 8598 
030536 08 
030450 8613 
030536 8618 
030560 8659 
030560 
030564 86814 
030610 3 
030634 97 
030636 87164 
0 718 
030706 732 
030710 87514 
734 8753 
760 8767 
030762 87. 
1006 8788 
031032 8802 
1034 88214 
031056 8823 


031102 8837 
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$51366 034514 101694 10182 
$51367 034542 10171 +10173 = 101834 
1370 034540 10176 101804 
$51371 034576 10210 102134 
$212%6 034572 102114 10219 
13 034612 10215 102204 
$51374 034722 10258 10275# 
$51375 034726 10274 102794 
$51376 034762 10287 103044 
$51377 034766 10303 103084 
1400 035026 10316 103354 
$51401 035032 10334 103394 
$51402 035210 10380 103844 
$51403 035252 104074 10408 10409 10410 10411 10412 
1404 035550 10433 10451 10470 10492 105154 
$51405 0355 10412 104934 
$51406 035434 10411 104714 
$51407 035370 10410 104524 
$51410 035324 10409 104344 
$51411 035264 10408 104144 
$51412 035310 10419 104244 
$51413 035316 10423 104284 
$51414 035 10442 104464 
$51415 035424 10460 104644 
$51416 035472 10480 104854 
$51417 035476 10484 104894 
$51420 035542 10504 105094 
$51421 035550 10508 105134 
$51422 035574 10524 105284 
$51423 035 105534 10554 10555 10556 10557 10558 
$51424 036140 10579 10597 10615 10637 106604 
$51425 0 10558 106384 
$51426 0 10557 106164 
$51427 035760 10556 105984 
1430 035714 10555 10580# 
$51431 035654 10554 105604 
$51432 035700 10565 10570# 
$51433 035706 10569 105744 
1434 035750 10588 105924 
$51435 0 10606 106104 
1436 0 2 10625 106304 
$51437 0 10629 106344 
$51440 036132 10649 106544 
$51441 036140 10653 1065 
51442 0361 10669 1067 
$51443 03622 106 10697 10698 10699 10700 10701 
1444 036556 10727 910752 =10777 Ss 10799) 108224 
$51445 0365 10701 108 
$51446 036442 10700 107784 
1447 036364 10699 107534 
$51450 036 10698 107284 
$51451 036240 10697 107034 
$51452 0 10708 107244 
$51453 036272 10711 107164 
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EE 4 154114 154134 154944 155424 155464 155484 159454 159824 160194 160574 161744 162144 162264 162304 
SOPNEG 60014 86614 86634 92 92024 118974 126444 142334 144754 145974 
5154 5844 6724 8044 8774# 10264 Of 11284 12084 12314 12374 1240 12514 12 12824 
1301% 13034 14184 16424 16564 17344 1800 18014 181 18344 18354 18474 18504 18744 
18964 BH 21374 21514 22554 23154 2339% 23634 94 2372 23834 23974 23984 
24018 2420 24224 2537 26714 26774 6804 26964 270 27214 2772H 2797 2957# 29634 
29824 8 30074 30584 30834 044 32374 324 464 32624 32694 32854 33034 
33544 33564 33774 33934 3550H 3556 3559 3575 35824 361 38764 
9 8994 39114 39214 39484 40014 40284 4042 42154 4222 42524  4260# 
42664 4269% 4279H 4295# 3464 43484 45844 34 647214 47914 8204 48244 48334 
48344 48444 48454 48494 48674 48714 48724 48854 4 a 8H 49344 49364 
50024 50814 50834 51104 3204 53234 84 53334 535 536 53924 53974 S5407# 54 54154 
54164 54344 54354 54374 54444 564 584 734 834 54904 55174 55864 
56654 56674 56 909% 59144 59244 59254 59334 59374 S5955# 5957H# 5 59624 865 59794 
59854 59914  5999# Be 60184 S6# 61084 61104 61364 63 63394 6 63504 63584 3664 
63784 63814 64034 64094 104 64224 64274 39H 64474 64 904 
9 65324 65844 65864 66124 7089# 71034 71 71614 71624 7 71824 71834 71854 72004 
72024 72054 72064 72084 72134 7220 72214 7223 7255 7272  7285# 73 73564 
74004 74024 7406 7420 74352 7437 7440 7445 74644 7469% 74854 75074 
75354 75514 76324 76344 7 78734 78784 78954 7 79114 3 79 79504 
7957# 79814 80444 80474 80564 5 81094 81274 81404 81744 81774 81784 81944  8196# 
82134 154 821 82204 82254 82314 82334 82804 83554 83574 8384 S# 8689" 
86914 87014 87054 87144 8720  8724# 87364 87554 8759% 87614 87714 87754 
87844 87944 O64 881 8819% 88254 8829, 88314 88414 544 88644 
88734 88754 54# 88914 934 890 89094 89114 89214 89274 8929 89344 9494 89544 89574 
900 90114 90214 90274 90314 334 90434 on 90554 90714 90754 9077 
90874 a 1 91154 9119% 9129 91354 91394 9149% 91554 9169% 91754 
9179# 9 92074 92534 9 94334 9440H 94 94 95054 95104 95214 95284 95394 
95468 95584 95614 9580H 95834 96224 9649% 96544 96654 96724 SH 896904 97014 97044 97234 
97268 97654 97954 98004 98134 98204 98254 98384 98454 98504 98634 98664 98854 98884 
100374 10039# 100644 100804 100964 101204 10212# 10349H 103564 103634 103944 104214 104264 10437# 10444# 
10455# 104624 104744 104774 104964 104994 10540# 10567# 10572# 105834 105904 106014 106084 10619# 106224 
106414 106444 106834 107134 107184 107314 107384 107434 107564 107634 107684 107814 107844 108034 108064 
# 109 109584 109834 109994 11015# 11039H 11155# 111644 111824 111914 112144 112244 112344 112534 
112674 112774 113034 113164 113264 11335# 11362# 11370H 113794 113844 113894 114064 114204 11448# 114604 
114944 115 115164 115254 1153504 115354 11549# 115634 115864 115964 116304 116424 116474 116644 117154 
11725# = 11736M 117384 117744 118804 119014 119114 119264 119444 119564 119594 119764 119854 120024 120064 
1201 120314 120364 12043 120504 120644 120694 120894 121034 121134 12114# 121324 121514 12164# 
12180# 122024 122124 12217H 122284 12239 12245H 122554 12257# 122744 12279H 12299H 12329H 123314 12390# 
123924 12407 1246254 124564 124664 124714 125194 1 $22) 4” 1 Gpaey 125534 125754 126134 1 per 126504 126524 
12707 12825# 128724 12942 129474 129524 12975# 130534 130554 131344 131824 13186# 131884 132354 133104 
13315# 133. 13534354 134224 13424H 135044 13552H 135564 135584 136304 13639 136524 136614 136844 136944 
13704 137234 13737 137474 137734 137. 137964 138054 1358294 138564 138684 138724 138844 138894 139014 
139284 13 139444 139564 139614 139754 13980H 13997H 140304 14032 140694 141924 142024 14237# 14247# 
142584 142 142714 142844 142994 14305H 14317# 143224 143244 143530H 143324 143414 14343H 1434 143514 
143644 14371H 143575H 143580H 143844 143864 143964 144174 144224 14429 144314 14437H 144454 144464 144534 
144644 144714 14477 144794 144984 14503# 145164 145464 145854 146034 146054 146444 147614 14809# 
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END .P14 08-FEB-80 13:45 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0539 
63784 63814 63884 64034 6409% 64104 64224 6427H 64324 64398 64474 64624 64744 6479% 64904 
64984 65352 65844 65864 66124 7089% 71034 71064 71614 71624 71684 71824 71834 71854 72 
72024 72054 72064 72084 721 72208 72218 72234 7255H 7272 72854 3564 
737 3784 8673834 74008 7402 74064 7420H 7432 74374 7440H 74454 74644 7469 74854 75074 
75354 7551 7632 76344 76604 78734 78784 78954 79114 1 3 
7957# # 803 80474 80594 81094 81274 81744 81774 81784 1944 81964 

1 82184 822 82254 82314 82334 82804 83554 83574 83844 868 
86914 87014 87054 87144 87204 87244 87264 87364 7404 87554 87594 87614 87714 87754 
7 8 8 88064 8819% 88254 88294 8831 88414 88454 88 
88734 88754 88854 88914 88934 89034 89094 89114 89214 89274 8929% 89344 89494 89544 89574 
90054 9009% 90114 90214 90274 90314 90334 90434 9049 90534 90554 90654 90714 9075# 
90874 90934 90974 91094 91154 91198 9129% 91354 91394 91494 91554 91694 91754 
9179" 189% 91934 92074 92534 93004 SH 94408 = =9447 947 95054 95104 95214 95284 95394 
9 95584 95614 95804 95834 96224 SH 96544 9665 96724 96834 96904 97014 97 97234 
972 97654 97954 98004 98134 98204 9825# 98384 98504 98634 98664 9885# 99444 
100374 100394 1 100804 100964 101204 102124 10349H 103564 103634 103944 104214 10426# 104374 104444 
104554 104624 104744 10477H 104964 10499# 105404 105674 10572# 105834 10590# 106014 106084 106194 106224 
106414 106444 106834 107134 107184 107314 107384 107434 107564 107634 107684 107814 107844 108034 108064 
108624 10956# 109584 109834 10999H 110154 11059# 111554 111644 111824 111914 112144 112244 112344 112534 
11267 112774 113034 113164 113264 113354 113624 11370# 113794 113844 113589 114064 11420# 114484 11460# 
114944 115 115164 115254 115304 115354 11549 115634 115864 115964 116304 11642# 11647# 116644 117154 
117254 117 117384 117744 118804 119014 119114 119264 119444 119564 11959% 119764 11985# 120024 120064 
120084 1201 120314 120364 120434 120504 12064 120694 12089H 121034 121134 12114# 12132# 121514 121644 
121804 122024 122124 12217# 122284 12239% 122454 12255H 12257H 122744 122 12299% 12329H 123314 123904 
123924 124074 12425H 12456 124664 124714 125194 125314 125 125534 12575# 126134 126344 12650# 126524 
127074 128254 128724 12942H 12947H 129524 129754 130534 13055H 131344 131824 131864 131884 1352354 133104 
13315# 133 133434 134224 1342464 135044 13552 135564 135584 136304 136394 13652M 136614 136844 136944 
3 137234 137374 137474 137734 137864 13796# 138054 138294 138564 13 13872 138844 138894 139014 
139284 1394 139444 139564 139614 13975# 13980 139974 140304 140324 140694 14192# 14202H 14237# 142474 
142584 142 142714 142844 142994 14305H# 14317# 143224 143244 143304 143532H 143414 143434 143494 143514 
143644 143714 143754 14 143844 143864 14396 144174 14422# 144 144314 14437H 144454 144464 144534 
144644 144 144714 144774 14479% 144984 14503# 145164 145464 145854 146034 146054 146444 147614 14 
14879# 14 148894 149124 149914 1499 15070# 151184 151224 15124# 15176# 15224# 15299H 153044 15 
| 23nee 154114 154134 154944 155424 155464 155484 159454 159824 160194 16057# 161744 162144 162264 16230# 
SOPRO 5144 5 5324 5344 5484 5504 5654 5744 5824 5844 5864 6724 6824 6844 7684 
770# 7854 7944 = 8024 = 8044 806K B77H# 63K 65H 67H 77H 79H BIH = 9834 = (BS 
9874 8=66989H = =6—6991H 10004 10024 10044 10064 1008 10134 1018 10244 10264 10344 1039%  1044# 
10464 10484 1050 10524 10544 10784 11054 1110 11264 11284 11844 11864 11884 11934 12084 
12164 12314 1236 1239 12514 12614 1269% 12744 12784 12814 13014 13034 13194 13234 13278 
13294 813314 135334 13354 13374 13394 14154 14174 15804 15824 1584 15944 15964 1598# 16004 
16024 16044 16064 1608 16164 16184 1620# 16224 16244 16294 16 16404 16424 16504 16554 
16604 16624 16644 16664 16684 1670H 16944 17184 17324 1734# 17 17924 861797# = 18014 
18164 18334 18354 18434 18454 18474 18494 18734 18854 18964 18984 19144 19184 19224 1924# 
19264 19284 19304 1932# 19344 2010 20124 20844 20864 20884 209 2100 21024 21044 21064 
2108 = =2110H 21124 21214 21234 21254 21274 2129% 21314 21354 21374 21454 2150% 21554 21574 
2159% =21614 9 216354 21654 =2189H =—22 13H = 220K BH 33H 35H 237K = 239% = 22534 = 22554 = 3114 
23134 23154 23174 19% = =23244 862339 = 347 36354 3684 3714 = 35834 396K = 398H = 400K = 4204 
2422H = 438 G42 446K 4484 = 450K = 24524 = 24544 = 456K = 4584 5 25394 =—2611# = 61354 = 6154 
26244 826264 = 262. 26304 26384 2640H 26424 26484 26504 26524 26574  2659% 26614 26684 
26764 8 2679H# 2 26 26 26964 26984 2702# 705S# = 2719% = 27218 2772H = a7 74a 
2 2799# = =—28074 828174 = 2895H 28974 2899# a 29118 29154 29244 292 
29 29454 29478 295 29564 ca 86296 5H 7 7 29744 8 2976# 
w= =—29B4H 30054 3007#  3058# 0764 30824 30854 31034 3179# 31814 
18354 86319354 31954 31974 32064 32084 32104 3212H 32184  3220H 32254 3227 32344 3236H 324 
32454 3250# 3252 32544 32564 3260H 32624 644 32684 32714 3282H 32844 32874 335014 33034 
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159894 160074 160094 160114 134 160174 160194 160244 160264 
60624 160644 160814 160 160854 160874 160894 160914 161084 
161714 161734 161844 161894 162044 162124 162144 162224 162264 
SOPR1 5144 5304 5324 5 5484 5504 5654 5744 5824 
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13294 13314 13334 13354 13374 13394 14154 14174 15804 
16024 16044 16064 1608 16164 16184 16204 16224 16244 
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18164 18334 18354 18434 18454 18474 18494 18734 18854 
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26 26844 = 2 26904 26944 26964 26984 27024 
27964 =6—2799H = B07H# = 8 17H# = 2B95H# = B97H# = 28 99# 29114 
29364 8629384 94 29478 544 29564 29624 a 
29884 1 & 30074 30584 30764 30824 
31934 31954 31974 32064 32084 2104 32124 32184 32204 
325 32524 32544 32564 32604 32624 64 2 32714 
33564 3372# 33 33814 33924 33954  3405# 
3519% 35214 3 35254 35314 353 35384 35474 
35694 35734 35754 35774 35814 35844 3595H 35974 # 
36914 36974 7124 37224 §=63799% =38014 38134 
38 38344 bat ed 38474 38564 3 38674 8704 
39014 83 390 104 39184 39204 39304 
40304 4 40424 41494 41514 415 41654 41674 
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42654 42 4277H# =4279H# = =429 4295# 4 43484 
44928 44 44 45014 45034 45074 4514# 5164 45184 
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4 46454 46474 46494 46514 465 46594 46 O# 
47534 = 4755H@  —47S57H# 47674 = 4769 =—4 7718 = 4773 478K 47844 
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50594 ” 5 50814 50834 510 5110# 51614 518 
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a 53924 8 5397H# 54064 540 54154 54164 
4 54564 54 4604 54734 54784 5482H 54 54904 
5537# = =S5539H 55414 5546 55484 55534 5555 555 556 
56454 5647 56654 56674 5692# 57454 57544 
58714 58734 58784 O04 58854 58874 5891# 589 
59234 5925# 59334 59354 59374 94 59554 59574 59594 
a 60 3 6035 6037. of 


63274 6329 63314 63334 6339 63414 63434 63484 63504 

0 640. 104 64144 a 
64624 649 65094 65114 6513# 65154 65504 
7020 70224 70324  7034# 0364 703 70454 # 70494 
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72554 72724 72854 7296 72984 73004 73024 73224 73284 7336 73504 73554 73584 73674 73728 
3A 399M 74064 874 74364 74398 7445 7649 74634 7469H% 74734 74844 
ieee 74958 75064 7509# caine 75194  7530# ek 75344 fet thd 75394 7549% 7551 76044 76064 


7632 76344 76584 78174 78194 82 78314 8334 78354 78374 78474 78554 7866# 
78704 78728 788 78944 79114 164 79334 79354 7952# = 867957H# 79614 79764 
79814 a 800 802 80254 384 80464 80554 80584 7 
81094 81274 8140# 815 81594 81704  8174# 1764 81784 81944 8 82134 82154 82174 
8220" 82274 82314 23 82474 8249% 82514 82534 82554 8257  8259H% 82614 82634 82654 
82674 83334 85354 7# 83554 83574 83824 85874 85 
86214 # 86274 86 4 86354 86374 394 a 86614 
7 87014 87034 87054 87144 87204 87244 8726 87364 87384 8740% 87494 
87554 8759% 87614 87714 87734 87754 87904 87 87964 88 88104 a 
88314 a 88454 544 88644 88734 88754 S# 88914 88934 89034 
89114 89214 89274 89344 89364 89434 8949% 89544 89564 89894 89914 89934 
90114 9021# 90274 90314 990334 3H = 904 90534 55a 5a 90754 90874 
90974 91154 9119% 9129% 91354 9139% 91494 91554 9159% 91694 91754 9189" 
91934 92024 92074 9252 92674 9269H 92714 92734 92 93224 93244 
93264 93284 93324 893 93444 93464 93484 93504 93614 93734 93754 93774 93798 904 
94024 94214 94304 94324 94354 94374 943 94424 4 94514 
94554 94754 9477H 8 95004 95054 9510 95144 9520# 95234 95284 9532 9538H 95414 
95464 9550H 9557 95 95664 95714 9579% 95824 95854 9590H 9595# 96194 96244 
96584 a 724 764 96854 96 97004 97034 9709% 97144 
97224 §=9725H# 97284 97334 97384 97624 644 97674 97874 97954 9 98044 98124 98184 
98374 98434 98454 98504  9854# 8624 98654 98714 98764 98844 98874 98904 
4 34 9919% 99214 234 254 9927 99 a 99 99424 1 100024 
100374 100 100614 100774 100 101184 10120# 101634 
101654 101674 101984 102004 20 102324 102344 102364 102384 10240# 10242# 102444 102484 10250# 
102624 102664 10277H 102894 102914 102934 102954 3 031 103224 103244 103374 
1 103484 103514 103534 103554 103584 10360# 103624 103654 103674 103694 103714 103914 103934 103964 
104164 104214 104444 104484 44 10457 104764 104824 
104874 104954 10498# 105014 105064 105114 10530# 105374 105394 105424 10562# 105674 105724 10576# 105824 
105854 105904 105944 106004 106034 106084 106124 106184 106214 106274 10632 10640# 106434 10646" 106514 
106564 106804 106824 106854 107054 107134 107184 10722# 107304 107364 107384 107434 10747# 10755# 107614 
107634 107684 107724 107804 107834 107894 10794# 10802# 108054 108084 108134 108184 108294 108314 10837# 
108394 108414 108434 108454 108474 108494 108514 108604 108624 109194 109214 109234 10956# 10958# 109804 
109824 109854 109964 109984 110014 110124 11014# 11017# 11037# 110394 110824 110844 110864 11117# 111194 
111214 8111284 11130# 111324 111394 111414 11143 111454 111474 111544 11157# 111594 11169 11177 111814 
111844 111864 11196# 112014 112144 11224# 11234 112534 112604 112674 112774 112914 112934 11295# 113034 
11316 113264 113354 113624 11367# 11369H 11372 113784 113844 113894 113934 113954 11405# 114114 114164 
114204 114224 114344 114394 114444 114484 11450 11459H 114654 114704 114794 114844 11489 114934 11496# 
11500# 115084 11513 115154 115184 115244 11530 11535# 115394 115414 115484 115544 11559# 115634 11565# 
115724 115774 115824 115864 115884 11595# 116014 116064 116154 116204 116254 116294 116324 11641# 116444 
11646 116494 116514 116534 116624 116644 11715@ 11725# 11736# 117384 117544 117564 117584 11760# 117624 
117644 117724 1177464 118354 118374 118394 118414 118464 118484 118554 118574 118594 118614 11870# 11872# 
118784 118804 118924 118974 119014 119114 11921# 119314 119444 119554 119584 119614 119634 119714 11976# 
119854 119954 120024 12006 120084 120184 12030# 12036 120434 120454 120554 120634 120744 12079 12087# 
120894 121034 12110 121124 121144 121164 12132 121484 121504 121534 121614 121634 12166 121744 12179# 
121854 12190 12196# 122014 12212H 12217H 12228H 12239H 122444 12247H 122544 122574 122744 122784 12284# 
122894 122984 12309H 1235144 1235254 123529 123314 123334 123484 123534 12370H 123754 123864 123904 123924 
123594H 124606 124124 124174 124244 124334 124384 12449% 124564 124654 124684 12470 124734 124814 124864 
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126874 12 126914 126934 126954 12705H 12707H 127414 12757 12770H 128244 12839 128414 128434 12845# 
128584 12 128624 128924 128944 128964 128984 129004 129024 129044 12906# 12913H 12941# 12944# 12946# 
12949H 12951H 12954H 129624 129644 129734 12975# 130314 130334 130354 130534 13055# 130774 130794 130814 
150834 1350854 13087# 130894 130964 131324 13134# 131774 13179 131814 131864 131884 13190 13221# 132234 
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44908 4492 44968 4496 45014 45034 45074 45144 45164 45184 4529% 45314 45334 45355H 45374 
45398 45414 45508 4552 45544 45564 45834 45904 4592H 45944 45964 4600 46114 46134 46184 
& 4 46454 46474 46494 46514 534 4659 467 46804 46824 4720H 47354 47374 7398 
47418 4753 47554 4757# 47674 9A 47718 47734 47824 47844 7884 7 4 48034 
48154 4819% 48224 48324 48344 364 48434 48454 48474 4 48514 48584 48624 

4870# 4872H 4 48854 48894 48954 48994 49024 %49044 49114 49274 49334 49364 
49514 49534 49554 4957# 9 49714 49754 49774 4979 49814 49854 5 
S002" 5059% 50614 50814 S083# 5108 51104 51614 51894 52824  5284# 2 52984 
5 53024 53114 53174 5319 5322 53284 533 5 53504 53624 53694 
53824 8 53844 53 53924 53974 54084 54104 54154 54164 54184 5424# 54 54354 
54434 54 54564 54584 4 54734 54784 54824 54884 4 4 55074 55154 55174 55226 
55354 55374 5539 55414 5546# 55484 534 SS55# 5559% 55614 55634 55654 5567 5569%  5584# 
5 56454 56654 56674 56924 56 57454 57544 58504 58624 
5 58714 58734 58784 58854 58874 58914 58934 59024 5 5 59144 59164 
59184 S925 59334 59354 59374 59454 59554 5957# 5959# 5962 5 9 
5 # 184 60334 60354 60374 60394 5 60564 61104 6 
6 62714 62734 62754 62854 62874 62894 62 62984 O34 63054 63104 6312 6316# 63184 
63254 63274 63314 3 39H # 63434 63484 63504 63524 63564 63654 63 
6 640. 64084 64104 64144 641 64204 224 664274 a 
64624 64744 984 65094 65114 5134 65154 65504 6532# 65844 65 66104 
66124 70184 7020 70224 70324 70344 70364 70 70454 7A 70544 70564 70614 70634 
70674 70694 70 70914 71034 71054 71144 71224 71274 7 71624 
7 7 7177# =6©71814 71834 71854 7200H 72024 7204 72084 72134 72154 7219% 72218 
72234 = 7239H 72554 7272 7285H 72984 = 7 73024 73224 73284 73364 3 73554 5 
73674 7372h 73 74024 74064 OF 74324 7439% = =—7445H = 7449% 74634 7469# 
74734 = =7 74 74954 875 7509# 75144 75194 Of 75324 75344 7537# 7539# 494 7551# 
7 76084 76324 76344 76584 78174 78198 78214 78314 78334 78354 78374  7847# 
7855#@ 78664 78724 878784 78834 78944 79114 334 79354 5 79524 
795S7# = =61961# 79764 79814 79854 8 80054 204 80254 84 5 80584 
7 8 81274 814 81544 81594 81744 8 81784 8 81944 8 
82134 82154 82174 8220H 82254 82274 82314 2334 82474 8249 82514 82554 82574 82594 
82614 6 82654 82674 82694 82784 82804 83334 83354 83374 83554 83574 83824 85874 
85 86214 2 86254 86274 294% 86314 3a a 3 86414 
86614 86744 86854 94 86914 87014 7034 87054 87144 87204 87244 87264 87364 
87404 8749 87554 87594 87614 87714 7734 87754 87844 87944 
8810# 88194 88254 14 34 54# 88544 7 88754 88854 88914 
88934 89114 89214 89274  8929% 89344 89 89434 8949% 89544  8956# 89914 
90054 90114 90274 314 334 904 90 5 4 90714 90754 
90774 9087# 7A we 9109% 91158 91194 9129 91354 91494 91554 9159% 91694 
91754 9179" 91934 92 92024 92074 92674 9269% 92714 92734 92 9 9290# 
93204 93224 93244 93264 93284 9330H 93324 93344 93444 93484 935504 93614 93734 
93754 9377# 9 94024 044 94064 94214 304 94324 94354 94378 3 94424 
94494 94514 5 94554 94754 9477 94804 500# 95054 95104 95144 9520# 95234 
95284 9532 95384 95414 9546# S0O# 9557# 95 95664 95714 95 95824 95854 95904 95954 
a 9 9654 96584 96644 96674 96724 96764 a 90H 96944 
9700# 7 97144 97224 9725 97284 97334 384 97624 97674 97874 
98044 98124 98184 98 98254 8 9837# 98434 98454 98504 98544 98624 98654 98714 98764 
98844 8874 98954 99114 99134 9919% 99214 99234 ese 99274 2o# 99314 99334 
99424 1 100044 100374 100394 100614 1006 100664 100774 100 00824 100934 1 
101184 101204 101634 101654 101674 101984 10200# 10202 102124 102324 102 102364 102384 102404 
102424 102444 102464 102484 102504 102604 102624 102644 102 102774 102894 102914 102934 10295# 10 
103184 10 103224 103244 103374 103464 103484 103514 103534 103554 103584 103604 103624 103654 10367# 
3694 103714 103914 103934 103 104164 104214 10426 10430H 104364 104394 104444 104484 104544 10457# 
104624 734 104824 104874 104954 104984 105014 105064 105114 10530# 105374 105394 105424 
105624 10567# 10572H 10576 105824 105854 105904 105944 106004 106034 106084 106124 106184 106214 10627 
106324 Om 34 106514 106564 10680 106824 106854 107054 107134 107184 10722" 10730# 10736# 
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END .P1/ 08-FEB-80 13:43 CROSS REFERENCE TABLE -= MACRO NAMES 
65324 65844 6 66124 7089F 71034 7 71614 71624 7 
7202 7205% 72064 72084 1 72204 72214 72554 7272H 72854 
73734 3784 38 7%4 74024 8674 74208 74324 7437 74408 74454 
75354 7551# 76324 76344 786 78734 78784 7895# 7 79114 
7957# 79814 4 7# = 80564 80594 8109 81274 81404 81744 
82134 a 84 82208 82254 82314 82334 82804 8355# 83574 4 
86914 87014 87054 87144 87244 87264 87364 87494 87554 
87844 a 881 88194 88254 88294 314 4 
88734 88754 88854 88914 9 89034 8909% 89114 89214 89274 89294 
90054 90114 90214 90274 90314 334 90434 90534 90554 
90874 34 8690974 9 91154 9119% 9129 91354 9139%  9149# 
9179# 9189% 91934 92074 2534 93004 334 94404 94474 94784 95054 
95464 5584 95614 8 95834 96224 SH 96544 96654 96724 96834 
7268 97654 9795H 98134 98204 98254 98384 98454 98504 98634 98854 
100374 100394 100644 100804 1 101204 102124 103494 103564 103634 103944 1 
104554 104624 104744 10477 104964 1 10540 105674 105724 105834 105904 106014 106084 106194 106224 
106414 106444 106834 107134 107184 107314 107384 107434 107564 107634 107684 107814 107844 108034 108064 
108624 109564 109584 109834 109994 110154 11039# 111554 111644 111824 111914 112144 11224# 112344 112534 
112674 112774 113034 113164 113264 113354 113624 113704 11379H 113844 11389H 114064 11420H 114484 114604 
114 115 115164 115254 115304 115354 11549H 115634 115864 115964 116304 11642M 116474 116644 117154 
117254 117364 117384 117744 118804 119014 119114 119264 119444 119564 11959H 119764 119854 120024 12006# 
1 120184 120314 120364 120434 120504 120644 120694 120894 121034 121134 121144 121324 121514 12164# 
121 122024 122124 122174 122284 12239H 12245H 12255H 12257 12274 12279 12299 123294 123314 123904 
123924 12607 124254 12456 1246664 124714 125194 125314 125364 125534 12575H 126134 126344 12650# 126524 
127074 12825# 128724 129424 129474 129524 12975 130534 130554 131344 131824 131864 131884 132354 133104 
133154 133204 1334 134224 134244 135 135524 135564 135584 136304 136394 136524 136614 136844 136944 
137044 137234 13737 137474 137734 1378 137964 138054 138294 138564 13. 138724 138844 138894 139014 
139284 139408 139444 139564 139614 13975H 139804 139974 14030H 140324 14069# 141924 14202# 14237# 14247# 
142584 142664 142714 14 4299H 14305H 14317H 14322H 143244 143304 143532 143414 143434 143494 143514 
3644 143714 1435754 1 143844 143 143964 144174 14422 144298 144314 14437 144454 144464 144534 
144644 144668 144714 144774 144798 144984 145034 145164 145464 145854 146034 146054 146444 147614 148094 
148794 8844 14 149124 149914 14 15070# 151184 151224 15124# 15176# 15224# 15299H 153044 153509" 
ioaeee 154114 154134 1 155424 155464 155484 159454 15982# 16019# 16057# 161744 162144 16226# 16250# 
SOPSWB 860014 60034 86614 86634 9200 92024 11897# 126444 142334 144754 145974 
SOPXOR 5154 5844 6724 8044 8774 10264 10404 11284 2084 12314 12374 12404 12514 12824 
13018 13034 14184 16424 16564 17344 18014 18164 18344 18354 18474 185 18744 
8 18984 21374 21514 222 22554 23154 23398 23634 2369 2372H 23834 2397 23984 
24014 24208 24224 2537 26714 26774 26804 26964 7034 27214 2772 27744 = 2797H = 295 7# 
30074 305 3 30834 31044 32374 434 32464 S269# 32854 33034 
33544 33564 33774 33934 355 35594 35754 35824 34 a 38764 
38 39114 39214 39484 3 0014 BH 40424 42154 42224 42524 
42 4269# 842 42954 43464 434 45844 46234 47214 47914 47 4 4 48354 
48344 48454 484 48674 4 48714 48724 48854 4 49044 49 49284 49344 
50024 50814 511 3204 234 284 533354 53504 94 53924 53974 54074 54154 
54164 54 54354 54374 54444 4564 54584 54 4734 SH 54 55 55174 55864 
56654 56674 5694# Ww 59144 859244 S5925H 59334 59374 59554 59574 5 59624 59798 
59854 59914 184 S64 61084 61104 61364 633 63494 63504 63584 
63784 63814 6 64034 104 64224 64274 6432 6439, 64474 64744 
65324 65844 6 66124 7089% 71034 71064 71614 71624 71 71824 8671834 71854 72004 
72024 72054 72 72084 72134 7220 72214 72234 7255H 7272 72854 7 73 
7 7 74024 74064 7432 8 =67437H 4a 74454 74644 74694 74854 75074 
75354 75514 7632H 76344 7 684 78784 78954 79114 79164 334 79354 5 
7957# = =7981% 80394 80444 804 564 80594 8109% 81274 81404 81744 81774 81784 81944 81964 
82134 82154 82204 8225H 82314 3 82804 83554 83574 83844 86054 5a 
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76164 76374 76624 7669 76714 76734 76814 76834 76854 76934 7700# 77074 77144 79004 79034 
79084 79278 7930# 79444 79474 79544 7970 79734 79784 79944 7997 80144 80174 80614 80694 
80714 80864 80994 81014 81044 81064 81214 81234 81374 81514 81874 82094 82224 82824 

83034 8310 83174 83244 83404 8342 83454 83604 83864 83934 83954 83974 840 84074 
8409% 8417 842464 84314 86074 86094 86124 86584 & 86824 964 9 87174 87314 87334 
87524 87664 87684 87874 88014 034 74# =©88704 89244 
9002# 24H 91124 91324 91524 91724 91978 92044 92554 92584 9341 93704 


90464 90684 90904 a 
9399" 94634 95024 95254 95434 95634 95874 96074 96464 96694 96874 97064 97304 97504 97894 
9792 98154 9822 98404 98474 98684 rst 4 99464 99534 99604 99674 99744 99814 99884 10007# 


100094 100124 10042# 10122 101344 101364 101384 101464 101484 101504 10170# 101724 10175# 10257# 102864 
103154 103794 104184 104414 104594 104794 10503 105234 105644 105874 106054 106244 106484 106684 107074 
10710# 107334 107404 107584 107654 107864 108104 108644 108714 108784 108854 108924 10899# 109064 10926# 
109284 109314 10961# 110414 110534 110554 110574 110654 110674 110694 110894 110914 110944 111744 112094 
112114 =11219% 112214 112294 112314 112424 112444 11247H 11250H 112624 112644 11272 112744 112834 112984 
113004 11308 113114 113134 113214 1132354 11359# 113754 113814 11399# 11402 114084 114284 114314 114364 
114564 114624 114764 114814 115054 115214 11527 11545# 115514 115694 115744 115924 115984 116124 116174 
116664 116734 116804 116874 116944 117014 117084 117184 117284 117414 11776# 117834 117854 117874 117954 
117978 11799% 11875# 118944 119064 119084 119184 119384 119404 119524 119654 11 119824 119904 119924 
119974 11999 120134 120154 120274 120334 12040 12082H 120844 121004 121364 12145 12158# 121714 1217 
121824 121984 12204H 122064 122084 122214 122234 12225H 122364 122414 122514 122634 12266# 12269# 122714 
122814 122954 123014 1235034 1235054 123184 123204 12322 12339H 123424 123454 12359H 12362 123644 12 
12379# 123814 123834 124004 12409F 124274 12429H 1246424 124444 1246464 124534 124624 124784 124904 124924 
125054 125074 12509 125164 125554 125624 125644 12566# 12577H 125844 126014 126034 12606# 126184 12647# 
126574 12709% 127164 127184 127204 127284 12730H 127324 1274 127504 127604 12762# 127654 128274 128304 
129774 129 129914 129984 130054 130124 13019 130384 130404 130434 130584 131 1314 131504 13152" 
131604 131624 131644 131934 13195# 131984 133454 13352H 13359H 133664 133734 133804 13387 13407# 13409# 
134124 13427H 135064 135184 135204 13522 13530# 135324 135344 135634 135654 135 136794 136814 1 
136914 136 137014 137124 13714# 137174 13720H 13732 137344 13742H 137444 137534 137684 13770# 137784 
137814 137834 137914 137934 138334 138364 138514 138614 138814 139054 139084 139234 139334 139534 13 
140064 140084 14010# 140184 140204 140224 14035# 140714 140784 140804 140824 14090# 140924 140944 141694 
141724 14187 14197H 142074 142304 14242H 14244H 142604 142624 142784 14280H 142884 14 142924 143114 
143144 143384 143564 143584 143614 143664 143 143914 143934 144024 144044 144064 144134 14419# 144264 
144564 144584 144614 145184 145254 145274 14535H 145374 145484 145554 145734 145754 145784 145904 1 
146104 64 146534 146554 146574 146654 146674 14669H 146804 146874 146974 146 147024 147634 147664 
149144 149214 149284 14935H 149424 14949H 149564 149764 149784 149814 149964 150724 15 15 150884 
15 0984 151004 151294 151314 151344 151784 151814 153344 153414 1534 153554 153624 153694 153764 
taste ht od 5 gs ph 154164 154964 155084 155104 155124 15520 155224 15524# 1555 15555# 155584 161814 
$PUT 5604 5994 6094 6184 6254 6324 6394 65 6664 6964 7014 7084 7154 7228 
7 7364 7804 81 8384 8454 8524 8594 8664 8734 a 9114 91 
9254 9324 9394 94 10594 10674 10724 10914 10964 11334 1140 1147 1154 11614 
11684 11754 1227# 8612474 = 1289% 13214 13254 13624 13764 13974 
14114 14254 16754 1 1 16994 17074 17124 1739 17464 17534 7 17674 8617744 
17814 18124 8 18614 18814 19164 19204 9484 19574 19644 19714 19854 19924 1 
21704 21784 21944 22024 2207K 22674 22744 22814 2 22954 23024 
23354 23584 3 24404 24444 24748 24834 24 24974 25114 25184 2525# 25328 
2 27264 27334 C747 = 754K 761K = h768H# = 792 = 794K 1 28224 28 
284 28504 28574 30124 30194 0264 334 30404 30544 7 
31164 31234 31374 3144 32664 33084 33154 33224 335294 33434 3350 35744 33978 
34114 2 34274 34414 344 3455# 79H = 361 36254 36324 363 
37024 37184 3727# 37344 37414 7484 37554 37624 38584 38624 39534 3 39674 39744 
3981# 39 S995H# 4019% 40234 40254 40474 40544 40614 40754 40824  4089# 2 42104 
43074 43144 43214 43284 43354 4342# 43704 43814 43954 44024 4 44164 44234 
44304 44374 44448 45258 4575H 4657# 4780 4786 S007# 50144 5021# 5028# S5035# 50424 
50494 50744 51154 51224 5129# 51434 51574 51754 5185# 1 
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35924 35934 Y4 36274 & 36414 36554 36624 36744 36994 3700H 37204 37364 
37434 8637508 3757 = 37644 838444 838454 38494 38724 38734 38804 39134 39234 39324 39554 4 

39764 3997# 4 404 40564 4 40704 40774 40844 41914 
41974 22 4229H 84262 = 42 42714 43024 43509% 43164 43234 43 43374 43564 
3 4397# 44044 44114 44254 4432H 44398 444 45054 45474 454 45 4577# 8645 
5 4 4 46214 46254 (64 47318 47334 48054 48074 48264 48274 48384 48534 48744 
48874 49074 49214 49224 49304 49314 Of 49424 49674 49734 
50164 50234 50304 50374 5044# 50514 0764 50784 50794 51174 51314 
51454 51524 51594 51774 5179 51874 51984 53354 53454 5§ 53524 53544 
53714 53734 53754 53944 53954 5399H 54264 54274 54394 54624 54754 54764 
4 54924 8654 55104 55194 55204 55244 5264 55504 55514 55574 55934 56004 56074 
56144 56214 56284 56354 5660 56624 56634 56754 57014 57084 57154 57224 7 57364 8657434 
57528 57654 58824 58834 58894 59204 59214 5939H% 59664 9674 60204 224 2 
2 7 60914 609 61054 61434 61504 61574 61644 61714 61784 
61854 61924 6199% 63074 63084 63144 63454 6 6 63634 63904 63924 64054 O6# 64124 
2 64414 64664 64 64754 64784 64814 824 6 65024 65394 
6 65674 65744 65814 65944 6619% 66314 66504 66574 OS9# 70654 71164 
7117# = =—7126 =—71254 §=7 71314 71454 714 71504 72254 7227H 72284 72418 7242H 7257 7274# 
72874 73314 73454 7 73814 73854 73874  7389# 74228 «74344 = =—7447H 
74514 = 74534 74718 7475H# 7477 = =—7492H = 749. 74974 87499 75164 7517 75214 S234 75584 7565# 
75728 7 7 76214 76234 76244 76424 76674 76 76914 76984 77054 7712# 
77194 78824 78854 78864 79144 79184 2 7922# 67937 793598 7959% 796 79654 
79834 8 7987# 79 80034 80074 80224 80274 80 80664 80674 80774 80784 
80824 80914 81114 81134 81294 81424 1564 81574 81614 8 82354 82374 82384 82874 
83014 83084 83154 83224 83294 SO# 83524 83654 83914 84034 84154 224 
84 8602 86184 86484 86504 86704 867, 86934 86944 87074 87284 87294 87424 87634 
87 87/77# od 881 88334 88344 88474 88674 88774 784 88954 S64 134 
4# 8931 89324 89514 89524 89634 90134 90144 90354 990364 9057# 90584 90794 9080# 91014 
91024 91214 91224 91418 91424 91614 91624 91814 91824 9209 92114 92154 92634 92654 93014 
9 93074 od 9359# =O 93874 9 93924 94184 SA =—94234 984 9507" 
S0B# 8995124 95174 95184 95304 95354 95364 95484 S544 9555 95684 9569% 95734 9576 95778 
95924 959 95974 9 96124 24 8696514 S24 96564 96614 96624 4a 79% 96804 
96924 9697# 984 97114 97124 97164 97198 97208 97354 97. 97404 9742 97434 97554 97854 
9797 97984 98024 9 98094 98104 98274 98314 98344 98354 9852 98564 9859 9860% 98734 
98744 987 98814 98824 98974 989 99054 99514 99584 9965# 99794 99864 
34 1001 100194 204 7H 101274 10144 101564 101804 101824 101834 102134 102164 102194 10220# 
102744 102754 102794 103034 103044 1030 103344 103354 103359# 103844 104144 104234 104244 104284 104334 
1 104464 104514 104524 1047 10471# 104844 104854 10489# 104924 104934 10508# 10509# 105134 
105154 105164 105284 105604 105694 10570# 10574 105794 105804 105924 105974 105984 10610# 10615# 106164 
1 106304 106344 106374 106534 106544 106584 1 106614 106734 107034 107154 107164 107204 
107244 107274 107284 10745# 107494 107524 107534 107704 107744 10777 107784 107914 107924 107964 10799" 
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